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PROOUCT CODE: 
PRODUCT NAME: 
DRTE RELEASED 
MAINTAINER 


AC-8536D-MC 
CZDMADQ DM1 1A LGC TST 
RPR IL 1978 
DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUEO AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT 

NO RESPONSIBILITY IS ASSUMEO FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT <C) 1972, 1978 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION 
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1. ABSTRACT 

TWO SEPARATE 01 AGNOSTIC PROGRAMS ARE PROVIDED FOR TESTING THE 
0M11R (ASYNCHRONOUS DATA MULTIPLEXER), CZDMA (OMUA 
LOGIC TESTS), AND CZDMB (OMUA MULTIPLE LINE DATA 
TESTS). THE LOGIC TESTS INDIVIDUALLY TEST EACH OF THE 
16 OMU LINES AND ALL COMMON L06IC. THE MULTIPLE LINE DATA 
TESTS RUN SEVERAL LINES CONCURRENTLY AND ARE USED TO TEST LINE 
INTERACTION AND DATA TRANSMISSION/RECEPTION RELIABILITY 
THIS DOCUMENT DESCRIBES THE LOGIC TESTS 
THE AVAILABLE TESTS ARE: 

PR GO - LOGIC TEST 

PRG1 - TRANSMITTER SCOPE LOOP 

PRG2 - TRANSMIT/RECEIVE SCOPE LOOP 

2. REQUIREMENTS 

2. 1 EQUIPMENT 

A. POP 11 FAMILY PROCESSOR 

B. DM11 

C. JUMPERS CONNECTING 16 TRANSMITTERS TO THEIR RESPECTIVE 
RECEIVERS. 

2. 2 STORAGE 

THIS PROGRAM USES ALL OF CORE (8K) EXCEPT THAT AREA RESERVED 
FOR THE LOADERS. 

3. LOADING PROCEEDURE 

THE ABSOLUTE LOAOER IS USED TO LOAD THE PROGRAM. 
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H. USE PROCEDURE 

4 1 STARTING PROCEDURE 

BEFORE STARTING MAKE SURE THAT THE TTY IS IN REMOTE MODE/ AND THE 
JUMPERS ARE INSTALLED. THREE STARTING ADDRESSES ARE PROVIDED 

0200 - THIS STARTING ADORESS REQUESTS DM11 PARAMETERS/ AND MUST 
BE USED TO INITIALLY START THE PROGRAM, AND WHENEVER ANY OF THE 
PARAMETERS LISTEO BELOW IS CHANGEO. 

A. VECTOR ADORESS ? 

RESPONSE: TYPE IN THE VECTOR AOORESS OF THE DM11 RECEIVER 
UNDER TEST. CARRIAGE RETURN SELECTS 0300 

6. UNIT 1(8)7 

RESPONSE: THE DM11 UNIT NUMBER CORRESPONDS TO THE 
ADDRESS TO WHICH THE CONTROL STATUS REGISTER (CSR) RESPONDS. 

CSR AODRESS DM1 1 UNIT « CSR ADORESS 0H11 UNIT « 

175000 0 175100 10 

175010 1 175110 11 

175020 2 175120 12 

175030 3 175130 13 

175040 4 175140 14 

175050 5 175150 IS 

175050 6 175160 16 

175070 7 175170 17 

CARRIAGE RETURN SELECTS UNIT • Q 

C. WHAT IS THE CHARACTER LENGTH? ;;+*D 

RESPONSE: CHARACTER LEN6TH REFERS TO THE NUMBER OF DATA 
BITS PER CHARACTER (5-t). CARRIAGE RETURN OEF AULTS A CHAR- 
LENGTH OF "8". IF A CHARACTER LENGTH 5-7 IS OESIRED, TYPE 
THE VALUE (5-7) OF THE DESIRED LENGTH AT THE KEYBOARD WHEN 
PROMPTED. 

0. PRG « 

RESPONSE: TYPE PROGRAM NUMBER OF PROGRAM YOU WISH TO 
RUN. CARRIAGE RETURN SELECTS PROGRAM I 0. 

NOTES: 

CARRIAGE RETURN TERMINATES ALL RESPONSES 

ANY UNACCEPTABLE RESPONSE WILL RESULT IN A ? TYPEOUT ANO 

THE PARAMETER MILL AGAIN BE REQUESTED. 

0204 - THIS START I N6 AOORESS USES PREVIOUSLY DEFINEO DM II 
PARAMETERS AND REQUESTS THE PROGRAM NUMBER OF THE 
PROGRAM YOU WISH TO RUN. 

0210 - THIS STARTING AOORESS STARTS THE PREVIOUSLY SELECTED 
PROGRAM USING PREVIOUSLY SELECTED PARAMETERS. 
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4.2 SWITCH SETTINGS 

THE FOLLOWING SWITCH SETTINGS APPLY TO PROGRAM 10. 

SR 0-b ROUTINE TO BE RUN (IF ENABLEO BY SR-9) 

SR 8 RING BELL ON ERROR 

SR 9 LOOP SELECTED ROUTINE 

SR 11 INHIBIT ITERATION (DO EACH ROUTINE ONCE) 

SR 13 INHIBIT PRINTOUT 

SR 14 SCOPE (LOOP ROUTINE) 

SR 15 HALT ON ERROR 


THIS PR0GRAT1 HAS BEEN flOOlFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTEO THE PROGRAM TESTS 
THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF NOT FOUM) A 
SOFTWARE SWITCH REGISTER LOCATION (SUREG*LOC. 17b ) IS DEFAULTED TO. 
IF THIS IS THE CASE, UPON EXECUTION THC CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE CONSOLE TTY AND FWY CHANGES ARE REOUESTED 


(IE) SURsXXXXXX NEW: 


POSSIBLE RESPONSES ARE: 


1 <CR> IF NO CHANGES ARE TO BE NADE 

2. b DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 

VALUE ;LAST DIGIT FOLLOWEO BY <CR> 

3. U TO ALLOW REENTER I N6 VALUE IF ERROR IS COMMITTED 

KEYING IN SWREG VALUE. 


BUILT INTO THE PROGRAM IS THE AGILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING 6 
(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF TIC PROGRAM 
CODE (IE) ERROR ROUTINES, AFTER HALTS El© OF PASS, AND OTHER 
APPLICABLE AREAS. 
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PROGRAM DESCRIPTION 
PR GO - LOGIC TESTS 

PRGO CONSISTS OF 152(8) INDEPENDENT ROUTINES WHICH TEST 
VARIOUS FUNCTIONS OF THE 0M11 HARDWARE ANY OF THESE ROUTINES 
NAY BE INDIVIDUALLY SELECTED AND RUN (SEE SEC 4.2 FOR SWITCH 
SETTING) 


5.1.1 ROUTINE DESCRIPTION 


ROUTINE 


TESTS 


RTO TESTS THE ABILITY TO REFERENCE THE FOUR Oflll REGISTERS 
CONTROL STATUS RE6ISTER (CSR), BUFFER ACTIVE REGISTER (BAR), 

BREAK STATUS REGISTER (BKCSR), AMD THE BASE REGISTER (BASREG) 

IF AN ILLEGAL REFERENCE OCCURS 1*€N THE CSR IS REFERENCED THE 
PR0GRAT1 WILL INDICATE AN ERROR, AND AUTOMATICALLY LOOP THE ERROR 
AS LONG AS THE ERROR CONDITION EXISTS. 

RTO PCsXXXXXX 

RTt-RTIO BIT 'BANGS' THE CSR (BITS 0,1.2,4,5,5.12,13). TESTING THAT 
EACH BIT IN THE CSR CAN BE INOIVIOUALLY SET ANO CLEARED TWO ERROR 
TYPES ARE DETECTED IN THESE TESTS, ABIT FAILED TO SET, AND/OR A 
BIT FAILED TO CLEAR. THE ERROR PRINTOUT SHOWS THE ROUTINE THAT 
FAILED ANO THE PC WHERE THE ERROR WAS OCTECTEO. 

RTll- TESTS THAT RESET ANO CLEAR CLEAR fiLl R/U BITS IN THE CSR TWO 
ERROR TYPES ARE DETECTED IN THIS ROUTINE SHOWING THE CONTENTS OF THE 
CSR AFTER THE RESET & CLEAR INSTRUCTION. THE PROGRAM AUTOMATICALLY 
LOOPS IF AN ERROR OCCURS SHOWN BELOW IS THE ERROR TYPEOUT 
RTll PC=XXXXXX ERR S/B. 000000 l*S: XXXXXX 
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RT12 LORDS A BINARY COUNT PATTERN INTO THE BKCSR ANO READS BACK 
THE RESULTS. IF THE DATA READ BACK IS INCORRECT AN ERROR IS INDICATED 
THE SCOPE SWITCH WILL CAUSE THE PROGRAM TO RELOAD THE BINARY HUM- 
BER ANO REPEAT THE TEST. THE ERROR TYPEOUT SHOWS CORRECT ANO 
ACTUAL RESULTS 

THE SECOND PORTION OF THE TEST CLEARS THE PREVIOUSLY LOADEO NUMBER 
IF THE SCOPE SWITCH IS SET THE PROGRAM LOOPS BACK ANO REPEATS 
THE CLEAR INSTRUCTION. 

RT13 THIS ROUTINE LOADS RANOOM NUMBERS INTO THE BKCSR. IF A 
RANDOM NUMBER IS LOADED INCORRECTLY AN ERROR IS INDICATED SHOUING 
THE CORRECT ANO ACTUAL RESULTS. 

RT1H THIS ROUTINE TESTS THAT RESET WILL CLEAR ALL BREAK STATUS REG- 
ISTER (BKCSR; BITS. IF ALL BITS DC NOT CLEAR WHEN THE RESET IS GIVEN 
AN ERROR IS INDICATED. THE ERROR TYPEOUT SHOWS THE CORRECT RESULT 
(ALL O'S) AND TIC ACTUAL RESULT. 

RT15-RTIG THESE ROUTINES ARC THE SAME AS RT12 & RT13 EXCEPT THAT 
THE BASE REGISTER IS TESTED. 

RT17 THIS ROUTINE TESTS THAT ALL BAR BITS CAN BE INDIVIDUALLY 
SET AND CLEARED. THE ROUTINE SHIFTS A T THROUGH THE BAR THEREBY 
SETTING EACH BAR BIT AND THEN THE BAR BIT IS CLEARED. THE ERROR 
TYPEOUTS SHOW CORRECT AND ACTUAL RESULTS 

RT20 THIS ROUTINE TESTS THAT RESET AM) CLEAR CLEAR ALL BAR BITS 
THE ERROR TYPEOUT SNOWS CORRECT ANO ACTVflL RESULTS 

RT21-RT23 TlCSE ROUTINES TEST THAT THE CSR, BAR, AND BKCSR RESPONO 
PROPERLY TO BYTE COMMANDS. BOTH BYTES ARE REFERENCED IN THESE 
ROUTINES USING CLRB INSTRUCTIONS THE ERROR TYPEOUT SHOWS CORRECT 
ANO ACTUAL RESULTS. 

RT2H THIS ROUTINE TESTS THAT THE OH 11 CAN INTERRUPT THE PROCESSOR 
VIA THE OVER RUN BIT (CSR BIT 13). THE ERROR TYPEOUT SHOWS THE 
ROUTINE NUMBER AND THE PC WHERE THE ERROR WAS OCTECTEO. 

RT25 THIS ROUTINE TESTS THAT THE OM11 INTERRUPTS THE PROCESSER 
AT THE PROPER LEVEL. 

RT26-RTHS THESE ROUTINES TEST THE BASIC TRANSMITTER FUNCTIONS 

ON EACH LINE 

RTHG-RTbS THESE ROUTINES TEST THE BASIC RECEIVER FUNCTIONS ON 

EACH LINE 

RTto THIS ROUTINE TESTS THAT THE OMtl WILL SET TIC HEX BIT 
(CSR BIT 14). WHEN THE OH11 TRIES TO TRANSMIT FROM NON-EX I STANT 
MEMORY. ALL LINES ARE INDIVIDUALLY TRANSMITTED ON. THE ERROR TYPEOUT 
SHOWS THE FAILING LINE. ALSO TESTEO IS THAT THE NEX BIT WHEN SET 
CAUSES AN INTERRUPT. 



SEQ 0007 


h i 

^DHAOU DttUR LGC TST HACY11 30A(1052) 28-APR-78 13 *48 PAGE 7 

CZOHAD Pll 28- RPR- 78 13: 

RTf>7 THIS ROUTINE TESTS THAT THE NEX BIT (CSR BIT !M) SETS 
UHEN THE Onil TRIES TO REFERENCE THE T LIABLE TABLE THAT IS IN NON- 
EX I STANT HEAORY. 


RT70 THIS ROUTINE TESTS THAT UHEN THE GO BIT (CSR BIT 0) IS 
CLEAR THAT NO DATA IS RECEIVEO ON ANY LINE. ALL LINES ARE TRANS- 
HI TTEO ON ANO AFTER THE TRANSHISS I ON IS COHPLETE THE RECEIVER DONE 
FLAG IS TESTEO. THE ERROR TYPEOUT SHOWS THE LINE ON WHICH DATA WAS 
RECEIVEO 

THE TYPEOUT SHOWN BELOW SHOWS THAT OATA WAS RECEIVED ON LINE 0 
RT70 PC = XXX XXX ERRS/B: 000001 WAS: 000001 

RT71 THIS ROUTINE TESTS THAT THE CURRENT AOORESS IS INCREHENTED 
PROPERLY BY THE 0H11. THE TABLE BELOW 9*)WS THE AOORESS LOAOEO 
INTO IN THE CURRENT AOORESS TABLE BEFORE 2 CHARACTERS ARE TRANSHITTED 
AND THE RESULTANT AOORESS AFTER THE CHARACTER IS TRANSHITTED 
BEFORE AFTER BEFORE AFTER 

000000 000001 000777 001000 

000001 000002 001777 002000 

000003 OOOOOS 003777 OOHOOO 

000007 000010 007777 010000 

000017 000020 017777 020000 

000037 0000*1 0 037777 0*10000 

000077 000100 077777 100000 

000177 000200 177777 000000 

000377 000*400 


THE ERROR TYPEOUT SHOWS CORRECT ANO ACTUAL CURRENT AOORESS. 

RT72 THIS ROUTINE TESTS THAT OATA CAN BE TRANSHITTED FROM ALL 
AVAILABLE CORE ANO RECEIVEO CORRECTLY. THIS IS DONE BY TRANS- 
HI TTING 1 CHARACTER FROM SEVERAL AOORCSSES IN fACH** BLOCK OF 
CORE ON LINE 0. THE ERROR TYPEOUT UIU SHOW TRANSHITTED AND 
ACTUAL RECEIVED DATA IF A OATA ERROR RESULTEO UHEN TRANSACTING 
FROH THE FIRST IK OF CORE E MARINE THE CURRENT AOORESS OF LINE 0 
TO DETERHINE WHERE IN THE FIRST «MC OF CORE THE ORlt WAS TRANSHIT- 
TING FROH UHEN ERROR OCCURREO. FOR ERRORS IN OTHER *K BLOCKS THE 
CORRECT RESULT CORRELATES TO THE AOORESS WHERE THE ERROR OCCUR- 
RED. FOR EXAHPLE 

RT72 PCxXXXXXX ERR S/B: 000001 WAS XXXXXX. 

INDICATES THAT THE DH11 FAILED TO TRANSHIT AND RECEIVE CORRECT 
DATA WHEN TRANSACTING FROH LOCATION 20000. 

THE TEST IS ABORTEO BEFORE TRANSACTING IF THE CORE LOCATION IS 
NON-EX I STANT. 
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RT73 THIS ROUTINE TESTS THAT THE TRANSMITTER CAN TRANSMIT 
100 CHARACTERS ON EACH LINE. THE ROUT 1 1C TESTS THAT EXACTLY 
100 CHARACTERS HAVE BEEN TRANSMITTED BEFORE READY (CSR BIT1S) 

SETS ANO THE BAR BIT CLEARS. THE ERROR TYPEOUT GIVES THE NUMBER 
OF CHARACTERS RECEIVED AT THE T I ME OF AN ERROR/ AND THE FAILING LINE 
NUMBER (X2). 

RT74 THIS ROUTINE TESTS THAT THE DM11 WILL STORE DATA SEQUENTIALLY 
IN THE TUMBLE TABLE AND ALSO THAT THE POINTER RETURNS TO THE TOP 
OF THE TABLE UHEN 64 CHARACTERS HAVE BEEN RECEIVED 

RT75-114 THESE ROUTINES CHECK THAT A BREAK CAN BE 

TRANSMITTED ANO RECEIVEO ON ALL ALINES 

R115-R134 THESE ROUTINES INDIVIDUALLY TRANSMIT/ RECEIVE 

AND CHECK DATA PLUS PARITY ON EACH OF THE 16 DM11 LINES ONLY 
DATA AND PARITY ERRORS ARE REPORTED. 

RT131 THIS ROUTINE SIMULTANEOUSLY TRAA6MITS AND RECEIVES A 
CHARACTER (ALL 1*S) ON THE 16 DHU LINES THE FOLLOWING TESTS 
ARE PERFORMED: 

A: THERE ARE 16 OATA ENTRIES (1 PER LINE) 

B: THERE ISN'T A 17TH ENTRY 
C: OATA IS CORRECT 
D. ONE ENTRY FOR EACH LINE 

RT136 THIS ROUTINE TRANSMITS A BREAK ON EACH LINE TESTS PERFORMED 
ARE THE SAME AS IN RT13S. 

RT137-RT14H THESE ROUTINES TRANSMIT 64 CHARACTERS ON EACH LINE 
WITH A DELAY BEFORE BEGINNING TRANSMISSION ON THE NEXT SUCCESSIVE 
LINE. THE DELAY BEFORE TRANSMITTING ON THE NEXT LINE IS HALVED 
BY SUCCESSIVE TESTS. NO DATA CHECKING IS PERFORMED BY THESE 
TESTS. TESTEO ARE THAT OVER RUN (CSR BIT! 3) AND NEX (CSR BIT14) 

ARE NOT SET OURIHG TRANSMISSION/RECEPTION. 

RT 145 THIS ROUTINE TESTS PROPER OPERATION OF THE HALF DUPLEX 

BIT (CSR BIT1) 

RT146 THIS ROUTINE TESTS THAT THE DM11 COMES TO AN 'ORDERLY 
HALT' UHEN THE RESET INSTRUCTION IS GIVEN. 'OROERLY HALT' IS 
DEFINED AS CSR/ BAR, AND BKCS CLEAR IMMEOIATLY AFTER THE RESET 
INSTRUCTION ANO STAY CLEAREO. 


5.2 PRG1- TRANSMITTER SCOPE LOOP 

PROGRAM 1 ALLOWS THE USER TO SCOPE THE OMU TRANSMITTER FUNCTIONS 
WITH THE OMU CONTINUOSLY RUNNING UNDER USER SUPPLIED PARAMETERS 

5.3 PRG2- TRANSMITTER/RECEIVER SCOPE LOOP 

PROGRAM 2 ALLOWS THE USER TO SCOPE THE CHli RECEIVER FUNCTIONS UlTH 
THE DM1 1 CONTINUOULY RUNNING UNOER USER SUPPL1E0 PARAMETERS 
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b. 0 PROGRAM 1 AND PROGRAM 2 PARAMETERS _ , ,, , 

WHEN PROGRAM 1 OR PROGRAM 2 ARE SELECTED ADDITIONAL PARAMETERS WILL 
BE REQUESTED BY EACH PROGRAM AS SHOWN BELOW 

R TYPE LINES TO BE TESTED 
EXAMPLES 


TYPE 
1 
3 

10 

17 

50 

3101 

17770 

177777 


TO SELECT LINE(S) 

0 

1*0 

3 

3/ 2/ 1*0 
5/ 3 

10/ 7> 6> 0 

14, 13, 12, 1 1, 10, 7, fc, 5, 4, 3 
ALL 


NOTE/ LINE NUMBERS ARE GIVEN IN OCTAL. 
d unn Mptjy CHARACTERS 

TYPE THE NUMBER Of CHARACTERS YOU WISH TO TRANSMIT NOTE, 

THE NUMBER OF CHARACTERS MUST BE LESS THAN 200, ANO IS TAKEN 
IN OCTAL. 

C PUT CHARACTER IN SR (0-7); DELAY IN SR (8-15) 
SELF-EXPLANATORY. NOTE, THE DELAY REFERS TO A DELAY AFTER 
ALL THE CHARACTERS HAVE SEEN TRANSMITTED ANO BEFORE A NEW 
TRANSMISSION PERIOD BEGINS. 


BECAUSE THE 0M11 DIAGNOSTICS ARE INSENSITIVE TO REAL* ELAPSEO TIME 
THE DIAGNOSTIC DOES NOT ‘KNOW* IF THE 0M11 IS OPERATING AT THE COR- 
RECT FREQUENCY OR THAT THE STOP COOE SELECTION LOGIC IS CORRECT, 
THESE SHOULD BE CHECKED WITH A SCOPE. 

8. 0 ^f°the^ POMER^FAILS THE PR0GRW1 TYPES AN ERROR MENAGE l» I CATl^ THE 

ROUTINE THAT HAS RUNNING (PROG 10 ONLY) ANO RESTARTS THE PROGRAM. 

mmtmstsmm important note 

POWER FAIL TEST 

A TEST OF THE PO*R FAIL LOGIC SHOULO BE «K<>RHED ON EACH UNIT 
SELECT l RUN ROUTINE 114 (L. A. * 210 SR *51*1 *RE$S START). TURN 
THE POWER OFF THEN OK THE PROGRAM MILL TYPE OUT THE POWER FAIL 
ERROR 

R1HH PC *003522 

ANO CONTINUE RUNNING ROUTINE 111. LOWER SR 9 AND WAIT FOR END OF 

NOTE: "fpTME POWER 1 IS 2 TURNE00FF T 0URING A RESET INSTRUCTION THE 
PROGRAM WILL HALT. PRESS CONTINUE AND REPEAT THE TEST 

IF THE PROGRAM HANGS THE BUS EXAMINE THE CONTENTS OF RTNNO THE 
CONTENTS OF RTNNO IS THE ROUTINE NUMBER THAT MAS RUNNING AT THE TIME 
OF THE FAILURE, 
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413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 


TITLE CZDMAOO DOHA LGC TST 

LIST HE, BIN, SEQ 
ENABLE ABS, AHA 

; CZDflAOO OftllA LGC TST 

;PRGO- INPUT-OUTPUT LOGIC TESTS 

; PRG1- TRANSMITTER SCOPE LOOP 

; PRG2- TRANSMIT/RECEIVE SCOPE LOOP 

; STANOARO SR SUITCH OPTIONS (SUITCH SET TO A 1 ) 

; SR15- HALT ON ERROR 
; SR 14- SCOPE. 

; SR13- INHIBIT PRINTOUT 
; SR 1 2- INHIBIT TRACE (NOT USED) 

; SR 11- INHIBIT ITERATION 
; SR10- LOOP PROGRAM. (NOT USED) 

, SR9- LOOP ROUTINE. 

; SR8- RING BELL ON AN ERROR 

; SR6 THROUGH SRO - HUMBER OF ROUTINE TO BE LOOPED 


; EQUATE STATEMENTS 


177776 

CC«177776 


177776 

PSU*1 77776 


000004 

ERRVEC*4 

, ADDRESS OF ERROR TRAP VECTOR 

000240 

NOP =240 


000000 

0PEN*0 


100000 

MANUAL *BIT15 


100000 

LB IT1 7* 100000 

1 

040000 

LB IT1 6*40000 


020000 

LB IT1 5*20000 


010000 

LB IT14*10000 


004000 

LB IT1 3*4000 


002000 

LBIT12*2000 


001000 

LB 1 Til *1000 


000400 

LB IT1 0*400 


0002G0 

LBIT7*200 


000100 

LB 1 T6*100 


000040 

LB IT5*40 


000020 

LB 1 T4*20 


000010 

LBIT3*10 


000004 

LB IT2*4 


000002 

LBIT1*2 


000001 

LS 1 T0*1 


100000 

BIT! 5* 100000 


040000 

B 1 T 14*40000 


020000 

BIT13* 20000 


010000 

BIT1 2*10000 


004000 

BIT1U400G 


002000 

B 1 T 10= 2000 


001000 

B 1 T9* 1000 


000400 

B 1 T8*400 


000200 

B 1 T7*200 


000100 

B 1 T6=100 


000040 

BIT5=40 


000020 

8 1 T4=20 




L^unMDO DM1 1R LGC TST MRCY11 3QRU062) Z8-RPR-78 13 48 

CZDMRD Pit 28-RPR-78 13 44 


L 1 

PAGE 11 


OOOOIO 

000004 

000002 

000001 

006726 

022626 

000340 

000300 

000240 

000200 

000140 

000100 

000040 

000000 

000000 

000002 

000004 

000006 

OOOOIO 

000012 

000014 

000016 

000020 

000022 

000024 

000026 

000030 

000032 

000034 

000036 

000000 

000001 

000002 

000003 

000004 

000006 

000006 

000007 

104000 

104001 

104002 

104003 

104004 

104006 

104006 

104007 

104010 

104011 

104012 

104013 

104014 

104016 

104400 

000007 


B I T3=10 
B I T2=4 
B I T1=2 
B I TO- 1 
P0PSP=5726 
P0PSP2*022626 
PRTY7*340 
PRTY6*300 
PRTY5=240 
PRTY4*2Q0 
PRTY3*140 
PRTY2= 1 00 
PRTY1=40 
PRTYOsO 
; L INE NUMBERS 

LINCOsO 
L I NC 1 = 2 
L 1NE2=4 
LINE 3=6 
L INE4=10 
L INE5*12 
L INE 6s 14 
LIN£7*16 
L1NE!0*20 
L INE1 1*22 
UNE12*24 
L INE13*26 
UNE14*30 
HNE15*32 
l INI 16*34 
LINE17*36 
R0*X0 
R1*X1 
R2*X2 
R3*X3 
R4*X4 
R6*X6 
SP*X6 
PC*X7 
; EMT CRUS 

TYP£*EMT40 

E**0t«EMT41 

ORTCHK-CMT+2 

CHRLT*£MT43 

EHRLT*EMT44 

StESET*EMT+5 

SC0PE*EMT+6 

SR¥f£fi«EMT47 

RSTR£S*EMT410 

ERROR UEMT+11 

IHlTJRt I2E*EMT+12 

SUSUR*EMT413 

KBDIN*EMT414 

CNTIU*EHT+15 

DELRYsTRRP+O 

BELL*007 


,POP THE STOCK SOME RS TST (6)4 
,POP STRCK TWICE SAME RS CMP (6)4, (6)4 
; PRIORI TY LEVEL DEFINITIONS 


SCO 0011 
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13: *4H 

RTLAST=-1 

Y=0 
X=- 1 
0=0 
. =0 
. *2 
HOLT 
HOCHER: . +2 
HOLT 



.♦2 

HALT 

♦2 

HALT 

♦2 

HALT 

♦2 



. *2 
HALT 
. +2 
HALT 
. *2 
HALT 
. ♦ 2 
HALT 
. *2 
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, UNOSS I GNE D TROP 
; SP OVERFLOW, BUS ERROR TROP 
; RESERVEO INSTRUCTION TROP 
; TRACE TRAP 
; TRAP TO COLL I OX 
; POWER FAIL TRAP 
, EMT TRAP 

.TRAP TRAP. SIMILAR TO ENT 

; TRAPPED TO PREVIOUS AOORESS 
.TRAPPED TO PREVIOUS AOORESS 
.TRAPPED TO PREVIOUS AOORESS 
; TRAPPED TO PREVIOUS AOORESS 
; TRAPPEO TO PREVIOUS AOORESS 
.TRAPPED TO PREVIOUS AOORESS 
; TRAPPEO TO PREVIOUS AOORESS 
.TRAPPEO TO PREVIOUS AOORESS 
; TRAPPEO TO PREVIOUS AOORESS 
; TRAPPEO TO PREVIOUS AOORESS 
; TRAPPED TO PREVIOUS AOORESS 
; TRAPPEO TO PREVIOUS AOORESS 
.'TRAPPED TO PREVIOUS AOORESS 
.TRAPPEO TO PREVIOUS AOORESS 
; TRAPPED TO PREVIOUS AOORESS 
; TRAPPEO TO PREVIOUS AOORESS 
; TRAPPED TO PREVIOUS ADDRESS 
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l*i*irJ 



Fa 

»i i» ii 



.‘.vHt 

1 1 IrT 


i i i i i i 

1 1 1 9 0 



) 1 1 r tr 


i i i i t i 

1 I 1 * ♦ 

III r 0 


i 

i iYi i 1 

i* * it 


i i*i*i t. 

A 


i i i t i i 

4 


1 * 1 * 1 * 

[t t’lri 1 1 1 1 l] 


urn 


Vi i ir.TWT i i i i ll 

l- ' 


[l 1 Ir.jWl 1 * 1 1 ll 

r , J 

3 


ESI 

* 1 1 * 1 1 

r, v it . ^ 

.a 

'•*»*irAJV 


11*111 


3 

1*1*1* 


II 1 1 II 

FtT; 

* 

i ,*,*,?* 



iiiiii 

.Y^xl 

I II III 

L '’"A 

% 



rv7\ 

l 

1 ;»,h 

lyAA 

3 




42 

HALT 
. +2 
HALT 
♦ 2 

HALT 
. +2 
HALT 
. +2 
HALT 

. n 

HALT 
. 42 
HALT 
. *2 
HALT 
. *2 
HALT 
. *2 
HALT 
. *2 
HALT 
. ♦ 2 
HALT 
. 42 
HALT 
.42 
HALT 
. 42 
HALT 
. 42 
HALT 
.42 
HALT 
. 42 
HALT 


TRAPPED TO PREVIOUS AOORESS 
TRAPPED TO PREVIOUS AOORESS 
TRAPPED TO PREVIOUS ADORESS 
TRAPPED TO PREVIOUS AOORESS 
TRAPPED TO PREVIOUS ADDRESS. 
TRAPPED TO PREVIOUS AOORESS. 
TRAPPED TO PREVIOUS AOORESS. 
TRAPPED TO PREVIOUS AOORESS. 
TRAPPED TO PREVIOUS AOORESS 
TRAPPEO TO PREVIOUS AOORESS 
TRAPPED TO PREVIOUS AOORESS. 
TRAPPEO TO PREVIOUS AOORESS 
TRAPPEO TO PREVIOUS AOORESS. 
TRAPPEO TO PREVIOUS AOORESS 
TRAPPEO TO PREVIOUS AOORESS. 
TRAPPEO TO PREVIOUS AOORESS 
TRAPPEO TO PREVIOUS AOORESS 
TRAPPEO TO PREVIOUS AOORESS 
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00032*1 

00032b 

+2 

00032b 

000000 

HALT 

000330 

000332 

. +2 

000332 

000000 

HALT 

00033b 

00033b 

+2 

00033b 

000000 

HALT 

0903*0 

000 3H2 

♦ 2 

000912 

000000 

HALT 

0003**1 

0003b b 

+2 

0003*4 

000000 

HALT 

000360 

090352 

+2 

000302 

000000 

HALT 


00035b 

42 


fwmnn 

HALT 

• y t ill 

000 3b2 

42 

«V ^1 

000000 

HALT 


0003bb 

42 

0003bb 

000000 

HALT 

[•''Va'l 

000372 

42 

000372 

000000 

HALT 

00037* 

00037b 

42 

00037b 

000000 

HALT 


SEQ oom 


, TRAPPED TO PREVIOUS AOORESS 
, TRAPPED TO PREVIOUS AOORESS 
; TRAPPED TO PREVIOUS AOORESS 
.TRAPPED TO PREVIOUS AOORESS 
, TRAPPED TO PREVIOUS AOORESS 
, TRAPPED TO PREVIOUS AOORESS 
.TRAPPED TO PREVIOUS AOORESS 
, TRAPPED TO PREVIOUS AOORESS 
, TRAPPED TO PREVIOUS AOORESS 
. TRAPPED TO PREVIOUS AOORESS 
.TRAPPED TO PREVIOUS AOORESS 
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557 


558 


000046 

=46 

559 

000046 

003036 

SENDAD 

550 


000052 

. =52 

651 

652 

653 

000052 

060000 

60000 

554 


000174 

. =174 

655 

000174 

000000 

DISPREG 0 

565 

657 

000176 

000000 

SUREG. 0 

658 


000200 

. =200 

659 

000200 

000137 002360 

JMP df START 

670 

671 

000204 

000137 002426 

JHP ilRSTPTl 

672 

673 

674 

000210 

000137 002514 

JMP RIRSTAT2 

675 


001200 

. =1200 

676 

001200 

000000 

SPBOT: 0 

677 

001202 

177570 

SH8 177570 

678 

001204 

175570 

01 SPLAY: 175570 

679 


001400 

. *1400 

580 

001400 

fmwn 

CAT: OPEN 

681 


001440 

=CRT*32. 

582 

001440 

000000 

UCT OPEN 

683 


001500 

*MCT+32. 

584 

001500 

000000 

SAT OPEN 

685 


001540 

=8AT*32 

685 

001540 

OOOOOG 

VAC. OPEN 

587 

001642 

175000 

CSR: 175000 

688 

001644 

175002 

BAR: 175002 

689 

001646 

175004 

BKCSR: 175004 

690 

001 660 

175006 

8ASREG: 175006 

691 

001662 

(l l < 1 1 lliiiili 

CLKINT: OPEN 

692 

001664 

000240 

CLKLVL: PRTYS 

693 

001666 

[ij * i I iwlliliMlll 

XMTINT: OPEN 

694 

001660 

000240 

XHTLVL: PRTYS 

695 

001662 

itiii 

TTOAT-. OPEN 

696 

001664 

111! 1 1 M, ,1 

IIN8IT: OPEN 

697 

001666 

1 l 1 1 1 1 

RCVOAT. OPEN 

698 

001670 

ii*i 

XHTOAT: OPEN 

699 

001672 

• i 1 1 ii 

CARMSK: OPEN 

700 



. *VAC<32. 

701 

001600 

i i i i 

TUHTA8: OPEN 

702 


i ir. i 

. «TUMTA8*128. 

703 

'-T-'-Vl 

KSTART: OPEN 

704 


i i i i 

CURTST: OPEN 

706 


iiiii 

RTNNO: OPEN 

706 

l . , f t ‘A ■ 

000000 

NXTST: OPEN 

707 

'fl 

I'*' 1 

ICTR: OPEN 

708 

■ ' *1*1* 1 '1 "■ 

SCOPTR: OPEN 

709 

002014 

fl 1 4 1 1 

PRGLIM: OPEN 

710 

002016 

007076 

PRGTA8: PRGO 

711 


016614 

PRG1 

712 

002022 

015574 

PRG2 


SEQ 0015 


/ GO TO STOUT OF DIAGNOSTIC 

; GO GET PROGRAM • 1 RESTART PROGRftfl 
/USING PREVIOUS Drill P0R0T1ETERS 

/RESTART PREVIOUS PROGRON USING 
/PREVIOUS DN11 PARAMETERS 

/, ++0 


/ . ♦♦0 

STORTING OOORESS OF 
CURRENT OOORESS TABLE 
STORTING AOORCS OF 
UORO COUNT TABLE 
STARTING OOORESS OF 
BIT ASSEMBLY TABLE 
Jt $NiC UOROS 

OOORESS OF CLOCK STATUS REGISTER 
OOORESS OF BUFFER ACTIVE REGISTER 
OOORESS OF BREAK STATUS REGISTER 
OOORESS OF BASE REGISTER 
ontl VECTOR ADDRESS (RECEIVER) 
PRIORITY LEVEL 

0H11 VECTOR AOORESS (TRANSMITTER) 
TRANSfUTTFR PRIORITY LEVEL 
TUMBLE TABLE OPTO 
LINE BIT (FOR BAR) 


/STARTING AOORESS OF 
/TUMBLE TABLE 

.CURRENT PROGRAM START AOORESS 
; CONTAINS ODOR OF CURRENT TEST 
; CONTAINS CURRENT TEST < 

; CONTAINS ODOR OF NEXT TEST 
; CONTAINS CURRENT ITERATION COUNT 
.CONTAINS CURRENT SCOPE POINTER 


; PRGO START ADDRESS 
;PRG1 START OODRESS 
. PRG2 START AOORESS 



SCO OOlfc 


;PRGQ RESTART AOORESS 
; PRG1 
; PRG2 

; POINTER TO TYPEOUT ROUTINE 
, POINTER TO ERROR ROUTINE 
; POINTER TO DATA COMPARISON ROUTINE 


; POINTER TO RESET ROUTINE 
; POINTER TO SCOPE ROUTINE 
; POINTER TO SAVE REGISTERS ROUTINE 
/ POINTER TO RESTORE REGISTERS ROUTINE 
; POINTER TO ERROR! ROUTINE 
, POINTER TO INITIALIZE ROUTINE 



SEQ 0017 


E 2 
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CZDHAO 

743 

744 

745 

PU 

28-APR-78 

13 44 










. ROUTINE TO TYPE OUT INCORRECT 

ROUTINE SELECTED 

746 

002120 

104000 



INCRTN. 

TYPE 



747 

002122 

020017 




fit 


, TYPE INCORRECT ROUTINE SELECTED 

748 

749 

750 

002124 

000207 




RTS 

X7 

; EXIT. 





; DATA COMPARISON ROUTINE. 


751 

002126 

123737 

001566 

001570 

DTCHK: 

cupb 

RCVDAT, ttlTDAT 

; COMPARE RECEIVED l TRANSMITTED DATA 

752 

002134 

001403 




BEG 

If 

, CHARS. BRANCH IF SAME 

753 

002136 

004737 

002332 



JSR 

7. CNVOAT 

; CONVERT RCVDAT 1 XMTOAT TO ASCII 

754 

002142 

104011 




ERR0R1 



755 

002144 

000002 



If: 

RTI 


; EXIT. 

756 









757 





; ERROR 

ROUTINE 1 

WHENEVER THE PROGAM OETECTS AN ERROR THE ERROR 

758 





; ANO ERROR 1 ENT 

INSTRUCTIONS ENTER ICRE. ERROR AT ERR , ANO 

759 





; ERROR 1 

AT ERR! 



760 


012737 

000402 

002246 

ERR 

MOV 

1402. ERRi 

;MOV BR . 46 TO ERRB 

761 

002154 

013737 

002100 

002102 


MOV 

PC AM). APCAOO 

; 6ET PC WHERE ERROR OCCURRED 

762 

002162 

000410 




8R 

ERRA 


763 

002164 

012737 

000240 

002246 

ERR1: 

MOV 

•240, ERRB 

;HOVE HOP TO ERRB 

764 

002172 

013737 

002100 

002102 


MOV 

PCAOD, APCAOO 

;GET PC WHERE ERROR OCCURRED 

765 

002200 

004737 

002332 



JSR 

7, CNVOAT 

;COW£RT RCVDAT 1 XMI T OAT TO ASC 1 1 

766 

002204 

104014 



ERRA: 

KBDIN 


. GO CHECK FOR G 

767 


032777 

020000 

176766 


BIT 

•BITl3,aSUR 

.ERROR PRINTOUT DESIRED 

768 

002214 

001017 




BNE 

ERRC 

; BRANCH IF NO PRINTOUT 

769 

002216 

004537 

006154 



JSR 

5, OACNV 

;CONV£RT 

770 

002222 

002102 




APCAOO 


;OATA 

771 

002224 

020224 




ARC 


, TO 

772 

002226 

nnnnni> 




6 


.ASCII 

773 

002230 

004537 

006154 



JSR 

5, OACNV 

.FOR 

774 






RTNNO 


.PRINTOUT 

775 


020216 




ATNUMB 



776 

I 1 f H'l 

■7777 ■ 




3 



777 

002242 

104000 




TYPE 


.TYPE ERROR 

778 

002244 

020213 




EMO 


; MESSAGE 

779 

rTrNi 

V 1 'III 



ERRB: 

OPEN 


;NOP IF ERROR 1. BR *6 IF ERROR 

780 


■ i iL'f/iM 




TYPE 


; TYPE ANOTHER MESSAGE 

781 


01 7754 




EROAT 


; IF ERROR 1 

782 

1* 1 

032777 

000400 

176720 

ERRC: 

BIT 

•BIT8.BSUR 

.RING BELL ON ERROR? 

783 


001411 




BEG 

ERRO 

; BRANCH IF NO BELL ON ERROR 

784 

\ 1 fir- \ 

105777 

177602 



TSTB 

BTPCSR 

; TELEPRINTER 

785 

» \ f* 

100375 




BPL 

. -4 

; READY? 

786 

1 9 V 4 

012777 

000007 

177574 


MOV 

•BELL, BTPD8R 

.RING THE BELL 

787 

I » r i i 1 

105777 

177566 



TSTB 

iTPCSR 

.WAIT FOR THE BELL TO RING 

788 

t i ri i m 

100375 




BPL 

. -4 


789 

iwnat 

023737 

000042 

000046 

ERRO: 

CMP 

M42, BI46 

;ACT11? 

790 

002314 

001403 




BEG 

ERRHLT 


791 

002316 

006777 

176660 



TST 

BSMR 

.HALT ON ERROR 

792 


■ (ll 1 if HI 




BPL 

ERREX 

;G0 TO EXIT IF NO HALT ON ERROR 

793 





ERRHLT: 

HALT 



794 


104014 



ERREX: 

KBOIN 


.CHECK FOR G 

795 






RTI 


.RETURN 

796 









797 









798 





; SUBROUTINE TO CONVERT RCVDRT ANO XfITOAT TO ASCII ANO PLACE 
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799 




, IN MESSAGE 


800 

002332 

004537 

006154 

CNVOAT. JSR 

5. OACNV 

801 

002336 

001570 


XflTDAT 


802 

002340 

017766 


AASB 


803 

002342 

000006 


6 


804 

002344 

004537 

006154 

JSR 

6, OACNV 

80S 

002350 

001566 


RCVDAT 


806 

002352 

020002 


AUAS 


807 

002354 

000006 


6 


808 

002356 

000207 


RTS 

7 


809 

810 


SEQ 0019 
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G 2 

POGE 19 


811 

812 

813 

U1H 

815 

816 

817 

818 002360 

819 002369 

820 002366 

821 002379 

822 002900 

823 

829 002906 

825 002910 

826 

827 002919 

828 

829 

830 

831 002922 

832 002926 

833 002932 

839 002939 

835 002992 

836 002999 

837 002996 

838 002950 

839 002959 

890 002956 
19 1 002969 

892 002970 

893 002976 

899 0025011 

895 002510 

896 002519 

897 002522 

898 002530 

899 002539 


867 002570 


860 002576 

861 002600 
862 002606 
863 002619 
869 002616 

865 002622 

866 002630 


012706 

109013 

012737 

005737 

012737 

000902 

012706 

012737 


009737 

012706 

109012 

023737 

001905 

109000 

020011 

009537 

000000 

093737 

006337 

012737 

012737 

013700 

000170 

012737 

012737 

012706 

109012 

013700 

000170 

022737 

001910 

023737 

001905 

109000 

020030 

000901 

109015 

013737 

012737 

109012 

009737 

032777 

001003 


, THE FIRST PORT OF THE STRUT ROUTINE CONTRINS R SHORT 
ROUTINE TO CHECK FOR MEMORY MANAGEMENT. RL THOUGH THIS 
OIRGNOSTIC DOES NOT USE MEMORY MANAGEMENT , ITS PRESENCE 
INOICRTES THAT OVER 2SK OF HEHORY HAY 8E PRESENT IN WHICH 
CASE TESTS RT66 AND RT67 MAY FAIL. IF HEN. HAN. IS 
PRESENT THESE TESTS ARE SKIPPED BY THE PROGRAM. 


SEE IF SU ITCH-LESS PROCESSOR 
SET UP FOR ERROR TRAP 
TEST FOR KTll 
KTll PRESENT, SET UP TO 
SKIP RT66 AND RT6 7 


001200 


START: 

MOV 

SUSWR 

ISPB0T.X6 

002910 

000009 


MOV 

Ilf, BIERRVEC 

172300 



VST 

dll 72300 

012716 

012330 


MOV 

IRT70, MRT6S+2 




BR 

♦6 

001200 


If: 

MOV 

ISPBOT, yjb 

000006 

000009 


MOV 

•ERRVEC+2, dlEI 

003969 



JSR 

7, dlOMPAR 

001200 


RSTAT1: 

MOV 

ISP80T , >Jb 




INITIALIZE 

000092 

000096 


CMP 

M92. 8*96 




BEQ 

PRGNUM+2 




TYPE 





MO 


009916 



JSR 

5.REC0 



PRGNUM: 

0 


002019 

002959 


BIC 

PRGLIM. PRGNUM 

002959 



ASL 

PRGNUM 

009576 

000029 


MOV 

•PFAIL. 29 

000390 

000026 


MOV 

•PRTY7. 2b 

002959 



MOV 

PRGNUM. 90 

002016 



JMP 

iPRGTAKQ) 

009576 

000029 

RSTAT2. 

MOV 

•PFAIL. 29 

000390 

000026 


MOV 

•PRTY7.26 

001200 



MOV 

•SP80T.96 



INITIALIZE 

002959 



MOV 

PRGNUM. 90 

002029 



JMP 

dRSTART(O) 

000176 

001202 

SR SET: 

CMP 

•SWREG. SHR 




BEQ 

If 

000092 

000096 


CMP 

M92.M96 




•EO 

GETROY 




TYPE 





M3 





HALT 





•R 

6ETRDY 



If: 

CNTLU 

KSTART.fKTST 

002000 

002006 

GETROY: 

MOV 

000006 

000009 

6TR0YX: 

MOV 

16. 8RERRVEC 



INITIALIZE 

003096 


GTROYA, 

JSR 

97, FOR MO 

001000 

176352 


BIT 

IBIT9, dSUR 



BNE 

GTRDYC 


, TRAP OCCURREO, NO KTll PRESENT, 
, RESET STACK 

/EC , RESET ERROR TRAP 


OUT INTERRUPTS (SET PRIORITY LEVEL 7) 
, GET Dflll PARAMETERS 


ACTm 


.GET PRGMJM AND PUT IT 
.HERE 

.'mask off umjseo bits 

.SHIFT PROGRAM • 


.GET PROGRAM • 

.GO START PROGRAM 


.GET PROGRAM I 
.60 RESTART PROGRAM 


. ACT11? 

; TYPE MESSAGE TO REQUEST SWITCH 

/REGISTER SETTINGS 

.WAIT FOR OPERATOR TO SET SUITOCS 

,50 GET SWREG SETTINGS 
; AOOR OF 1ST ROUTINE TO NXTST 

/RESET ERROR TRAP VECTOR 

zROll FORWARD TO "NEXT" ROUTINE. 

/CHECK SELECT ROUTINE SWITCH 
.BRANCH IF SELECT ROUTINE SWITCH IS SET 



SEQ 0020 


.GO RUN CURRENT ROUTINE 
.NO GO. MANUAL RTN BYPASSED 
, (SR) TO RO 
.MASK UNDE SIRED BITS 
COMPARE RTNNO TO (RO) 

; BRANCH IF ROUTINE NOT FOUNO YET 
.GO RUN ROUTINE 
; NG. CHECK FOR LAST ROUTINE 
.BRANCH IF NOT LAST ROUTINE 
. YES. INCORRECT ROUTINE SELECTED 
.START OVER 


.CHECK FOR G 
.CLEAR ALL OMU REGISTERS 
; AND SET BASE REGISTER 
.AT THE STARTING AOORESS 


.CHECK FOR SCOPE OPTION. 

.BRANCH IF SCOPE SM NOT SET 
.RETURN TO ROUTINE 
.TEST IM4IBIT ITERATION SWITCH 
; BRANCH IF INHIBIT ITERATION SU SET 
; ACTII? 

;BR IF NO 
.1ST PASS? 

BR IF YES 

.' OECRENENT ITERATION COtNT 
. BRANCH IF COUNT NOT 0 
.CHECK SELECT ROUTltC SWITCH 
; BRANCH IF SELECT RTN SU SET 
.LAST TEST? 

; BRANCH IF NOT LAST TEST 

.TYPE 
. PRGENO' 

.CHECK XX0P/ACT11 NON I TOR HOOK 


.RETURN TO XXDP/ACTU MONITOR 


; AOOR OF NEXT ROUTINE TO RS 
.SET NEXT ROUTINE NUMBER. 

; GET AOOR OF NEXT "NEXT- ROUTINE 
;GET ITERATION COUNT. 

; GET SCOPE LOOP ENTRY POINTER. 

.AOOR OF NOW CURRENT TEST TO CURTST 
; EXIT FORUO SUBROUTINE. 


.GET PC OF NEXT INSTRUCTION 


SEQ 0021 


I 2 


(.ZDflADO 0MI1A 1 

LGC TST 

macyii 

300(1052) 28-APR-78 13 

48 PAGE 21 


czomao 

Pll 

Z8-APR-78 

13: 44 




923 

003102 

162716 

000002 

SUB 

• 2 , (6) 

, F ORtt PC OF EMT INSTRUCTION 

92H 

003106 

011637 

002100 

nov 

<6),PCROO 

, GET PC Of EHT INSTRUCTION 

926 

003112 

017616 

000000 

no v 

i(6), (6) 

.GET EHT INSTRUCTION 

926 

003116 

105066 

000001 

CLUB 

1(6) 

.CLEAR NSH Of EHT INSTRUCTION 

927 

003122 

006316 


RSI 

(6) 

.SHIfT ENT IDENTlf IER 

928 

003129 

062716 

002032 

ROD 

*EnT T RB/ (6) 


929 

003130 

013607 


nov 

i( 6 ) 4 , X7 

.GO TO PROPER EMT 

930 







931 




. SAVE REGS 0 TO 

4 SUBROUTINE 


932 

003132 

012637 

003166 

srvrG: nov 

(6)4/ SVRPC 

.SAVE PC ANO PSU 

933 

003136 

012637 

003170 

nov 

(6)4/ SVRPSU 


93H 

003192 

010996 


nov 

XH,-(6) 

.SAVE REGS 0 - 4 

935 

003199 

010396 


nov 

X3, -(6) 

, IN STACK. 

936 

003196 

010296 


nov 

X2,-(6> 


937 

003150 

010196 


nov 

XI. -(6) 


938 

003152 

010096 


nov 

XO, -(6) 


939 

0031S9 

013796 

003170 

nov 

SVRPSU. *(6 ) 

.RESTORE PC ANO PSU 

990 

003160 

013796 

003166 

nov 

SVRPC. -(6) 


991 

003169 

000002 


RTI 


.EXIT 

992 

003166 

000000 


SVRPC: OPEN 



993 

003170 

000000 


SVRPSU: OPEN 



999 







995 




; RESTORE REGS 0 

TO 9 SUBROUTINE 


996 

003172 

012637 

003226 

RSTRG: nOV 

(6)4.RSTPC 

.SAVE PC ANO PSU 

997 

003176 

012637 

003230 

nov 

(6)4. RSTPSU 


998 

003202 

012600 


nov 

(6)4. XO 

; RESTORE REGS 0-4 

999 

003209 

012601 


nov 

(6)4, XI 

.FROM STACK 

950 

003206 

012602 


nov 

(6)4, X2 


951 

003210 

012603 


nov 

(6)4. X3 


952 

003212 

012609 


nov 

(6)4, XH 


959 

003219 

013796 

003230 

nov 

RSTPSU, -(6) 

.RESTORE PC ANO PSU 

955 

nnwni 

013796 

003226 

nov 

RSTPC, -(6) 


956 

003229 

000002 


RTI 


;EXIT 

957 


000000 


RSTPC: OPEN 



968 

003230 

000000 


RSTPSU: OPEN 



959 

960 




; ROUTINE TO ISSUE RESET. 


961 

003232 

012700 

052525 

SR SETT- NOV 

•52525, ft) 

.DATA TO RO. 

962 

003236 

006100 


con 

XO 

; COMPLEMENT (RO). 

963 

003290 

010037 

003239 

nov 

X0.SRSETT42 

; (RO) TO SRSETT42. 

969 

003299 

000005 


RESET 


; ISSUE RESET. (RO) IS 

965 

003296 

000002 


RTI 


; DISPLAYED. EXIT. 

966 

967 




;RANDOn NUT16ER 

GENERATOR. ROUTUC EXITS UITH NUMBER IN RE6ISTER 0 

968 

003250 

013700 

003316 

RNGEN: nOV 

RPl.XO 


969 




RO' 

XO 


970 

i i\ v. 



ROl 

XO 


971 

1 lVy,’^l 


003320 

ADO 

RP2, XO 


972 

’Trtrr? 

010037 

003316 

nov 

X0.RP1 


973 




ROL 

XO 


979 


006100 


ROL 

XO 


975 


063700 

003320 

ADO 

RP2, XO 


976 

I 1 . 1 ) 1 *.'.'! 



ROL 

XO 


977 

003302 

006100 


ROL 

XO 


978 

003309 

010037 

003320 

nov 

X0.RP2 
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003310 

003311 

003316 

003320 


013700 

000207 

001233 

007622 


003316 


MOV RP1.X0 

RTS 7.7 .EXIT NUMBER IN RO 

RP1 1233 

RP2 7622 

.SUBROUTINE TO OUTPUT ASCII MESSA6E ON TELETYPE PRINTER 
TYP MOV 3X6. 7.0 ;GET ADDRESS THAT CONTAINS MESSAGE ACORESS 

ADO 12.3X6 ; SET UP EXIT. 

MOV 3X0, XO ; AOORESS OF MESSAGE TO RO. 

TYP A: M0 VP <0>+, TYPOAT ;6ET CHARACTER 

CMPB 1100, TYPOAT ; CHECK FOR"i"CHRRACTER 

BNE TYPC .BRANCH IF NOT "3" 

RTI TERMINATOR CHAR. DONE EXIT 

TYPC CMPB 115. TYPOAT .CHECK FOR M X“. 

BEQ TYPF .BRANCH IF M X" 

JSR X7.TYP0 ; TYPE CHAR IN TYPOAT 

BR TYPA 

TYPO M0V8 TYPOAT, 3TP0BR ; OUTPUT CHARACTER TO PRINTER 

TSTB 3TPCSR ,MAlT FOR OONE FLAG. 

8PL -1 

RTS X7 .EXIT 

TYPF MOVE *15, TYPOAT .MOVE CARRIAGE RETURN COOE TO TYPOAT 

JSR X?, TYPO .GO TYPE CHAR 

TYPG. HOVB • 12. TYPOAT .MOVE LF COOE TO TYPOAT 

JSR X7, TYPO ; GO TYPE CHAR. 


.EXIT NUMBER IN RO 


981 

003322 

011600 



TYP 

MOV 

BX6. XO 

985 

003321 

062716 

000002 



ADO 

12, BX6 

986 

003330 

011000 




MOV 

axo, XO 

987 

003332 

112037 

003132 


TYPA: 

HO VP 

(0)+, TYPOAT 

988 

003336 

122737 

000100 

003132 


CMPB 

•100, TYPOAT 

989 

003311 

001001 




BNE 

TYPC 

990 

003316 

000002 




RTI 

115, TYPOAT 

991 


122737 

000015 

003132 

TYPC 

CMPB 

992 

003356 

001112 




BEQ 

TYPF 

993 

irara 

001737 

003366 



JSR 

X7.TYP0 

991 

000762 




BR 

TYPA 

995 


113777 

003132 

176500 

TYPO 

MOVB 

TYPOAT, BTPOBR 

996 

003371 

106777 

176172 



TSTB 

BTPCSR 

997 


100375 




8PL 

-1 

998 

999 

tel 

000207 

112737 

000015 

003132 

TYPF 

RTS 

MOVB 

X7 

•15. TYPOAT 

1000 

003112 

001737 

003366 



JSR 

X7, TYPO 

1001 

003116 

112737 

000012 

003132 

TYPG. 

MOVB 

112. TYPOAT 

1002 

003121 

001737 

003366 



JSR 

X7. TYPO 

1003 

003130 

000710 




BR 

TYPA 

1001 

003132 

000000 



TYPOAT. 

OPEN 



003131 
003112 
00 3150 
003151 
003160 


012777 

012737 

011637 

012706 

000176 


001100 

000310 

001200 

001200 

000000 


176106 

177776 


.SUBROUTINE TO INITIALIZE STACK POINTER AN 0 SET PROCESSOR PRIORITY 
.LEVEL 7 

I NIT. MOV ICAT. 3BASREG ; INITIALIZE THE BASE IE6ISTER 


MOV 

•CAT. BBASREG 

.INITIALIZE THE BASE RE6ISTER 

MOV 

•PRTY7.PSU 

.SET PRIORITY LEVEL 7 

MOV 

(SP).SPBOT 

. 6ET RETURN AOORESS 

MOV 

•SPBOT.SP 

;SET BOTTOM Of THE STACK 

JMP 

MSP) 

; RETURN 


003161 

003172 

003171 


003610 

003612 

003616 




003662 

003570 


023737 

001060 

012700 

010060 

012720 


100370 

012737 

012737 

012737 

012737 

012777 

006037 

012777 

012737 


000012 000G16 


000302 

177776 

000003 


; SUBROUTINE TO ST Will PARAMETERS 
; VECTOR AOORESS 

OMPAR: CMP M1Z.M16 .ACTU? 

BNE 61 »•* IF NO 

; SIZE FOR INTERRUPT VECTOR IN AUTO MOOE 


000776 

003610 

000310 

177777 

017102 

000106 

177776 

000001 

177777 


OOOOtl 

000016 

001110 

001100 

175761 

175751 

002076 


I302.R0 ;SETU 

RO, -2CR0) 

•3. <ROH 

t*OH 

I776.R0 

11 

111. Mil ; SET 81 

1310. M16 l PSU 

•-1.MCT .SET T 

•OUTBUF.CAT 
•G I T6+B I T2*B I TQ. K SR 
BIPSU ;LVL 0 

118 1 TO, 8BAR ;XMIT 

1-1, COUNT .WAIT 


SET UP FLOATING VECT AREA 


SET BPT VECT 
l PSU 

SET TO XHIT 1 CHAR 


;SET IE 


SCQ 0023 


K. 2 
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1035 

003576 

005337 

002076 


25 

DEC 

COUNT 

1035 

003502 

001375 




BNE 

25 

1037 

003509 

109001 




ERROR 


1038 

003505 

000752 




BR 

35 

1039 

003510 

162716 

000009 


51 

SUB 

19, (SP) 

1090 

003519 

011537 

003550 



nov 

(SP).aiVECTOR 

1091 

003520 

012737 

000016 

000019 


nov 

«i6,a«i9 

1092 

003525 

009737 

009372 



JSR 

7, OVRLAY 

1093 

003532 

000915 




BR 

VECOK 

1099 

003539 

009737 

009372 


61 

JSR 

7, OVRLAY 

1095 

003590 

109000 




TYPE 


1095 

003592 

017525 




WHERE 


1097 

003599 

009537 

009916 



.•SR 

5.REC0 

1098 

nmtiifi 




VECTOR: 

0 


1099 

003552 

005737 

003550 



TST 

VECTOR 

1050 

003555 

001003 




BNE 

VECOK 

1051 


012737 

000300 

003650 


nov 

1300, VECTOR 

1052 

003555 

023727 

003550 

000300 

VECOK: 

cnp 

VECTOR, 1300 

1053 

003579 

103003 




BHIS 

VECOKB 

1059 

003575 

109 OOC 



VECOKA: 

TYPE 


1065 

003700 

020017 




ni 


1065 

003702 

000570 




BR 

DHPAR 

1057 

003709 

023727 

003550 

000770 

VECOKB: 

cnp 

VECTOR, 1770 

1JS8 

003712 

101371 




BHI 

VECOKA 

1059 

003719 

032737 

000007 

003550 


BIT 

17, VECTOR 

1050 

003722 

001355 




BNE 

VECOKA 

1051 

003729 

013737 

003550 

001552 


nov 

VECTOR. aKINT 

1052 

003732 

052737 

000009 

003650 


ADO 

•9. VECTOR 

1053 

003790 

013737 

003650 

001556 


nov 

VECTOR. #1T INT 

1059 








1055 





; UNIT NUT1BER 


1055 

003796 

023737 

000092 

000CN6 

OftPARB: 

cnp 

M92.BI95 

1057 

003759 

001905 




BEQ 

UNIT+2 

1058 

003755 

109000 




TYPE 


1059 


017725 




WHICH 


1070 


009537 

009916 



JSR 

5. RECO 

1071 


w.ojxm 



UNIT 

0 


1072 


023727 

003756 

000017 


cnp 

UNIT, 117 

1073 


101 9Q3 




BLOS 

UNTOKA 

1079 

'.'-Tv . 1 





TYPE 


1075 

V^t'.V 

020017 




m 


1075 






BR 

DNPARB 

1077 

009005 


003755 


UNTOKA: 

ASI. 

UNIT 

1078 

009012 


003765 



ASL 

UNIT 

1079 

009015 

■ V 

003765 



ASL 

UNIT 

1080 

009022 

012702 

000009 



nov 

•9,22 

1011 

009025 

012701 

001592 



nov 

•CSR.X1 

1082 

r-T' T i 

092711 

000370 


UN T OKB: 

BIC 

•370, ( 1 ) 

1083 


053721 

003765 



AOD 

UNIT, (1)4 

'.089 

009092 

005302 




OEC 

82 

1085 

009099 

001372 




BNE 

UN T OKB 

1085 








1087 

009095 

012702 

000009 



nov 

•9,22 

1088 

009052 

012703 

001592 



nov 

ICSR, 83 

1089 

0090I& 

012701 

002105 



nov 

•. CSR.21 

1090 

009052 

012311 



UNTOKC: 

nov 

<3)4,<1> 


/ NO I NT OCCURRED 
; REPEAT IT 
, CALC I NT VECT 
; STORE IT 
; RESTORE 8PT VECT 

42, HALT IN VECT AREA 

; PUT HALT,. 42 IN VECTOR AREA 
; ASK USER FOR RECEIVER INT VECTOR 
; OF UNIT UNOCR TEST 
; GET VECTOR ANO PUT IT 
, HERE 


; SET VECTOR = TO 0300 
; IS VECTOR HI6HER OR 
; EQUAL TO 0300 
.TYPE •?* 

; ASK FOR ANOTHER VECTOR 
. IS VECTOR * TO OR 
.LESS THAN 770 

, LS8 OF VECTOR MUST BE ALL OS 


; ACTll? 

, BR IF YES 


, 6ET UNIT ANO PUT IT 
.HERE 

;UNIT SELECTED OUST BE 
; BETWEEN 0117 


,FORN AOORESSES OF 
.REGISTERS OF UNIT SELECTED 


;FORH 000 BYTE ADDRESSES 


J 
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1091 

1092 

1093 

1094 
10 % 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

lire 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 
1116 
1116 

1117 

1118 

1119 

1120 
1121 
1122 

1123 

1124 
1126 
1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 
1136 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 
1146 
1146 


004064 

004066 

004070 

U04CP2 

004100 

004102 

004104 

004106 

004112 

004114 

004120 

004122 

004130 

004136 

004140 

004142 

004144 

004146 

004164 

004166 

004164 

004170 

004174 

004202 

004204 


004206 

004210 

004212 

004214 


004216 

004222 

004230 

004236 

004244 

004262 

004260 

004266 

004272 

004300 

004306 

004310 

004314 

004322 

004124 

004326 

004332 

004391 

004336 

004342 

004360 


006221 

006302 

001374 

023737 

001406 

104000 

017740 

004637 

000000 

006737 

001003 

012737 

023727 

103003 

104000 

020017 

000762 

023727 

101371 

162737 

006337 

013701 

016137 

000240 

000207 


177740 

177700 

177600 

177400 


006037 

012737 

012737 

012777 

012777 

012777 

012777 

006037 

012737 

062737 

001007 

006077 

012737 

104001 

000791 

006337 

001376 

000766 

006077 

013737 

006037 


INC (!)•» 

OEC X2 

8NE UNTOKC 

, CHARACTER LENGTH 

BI42, mb 
LENGTH+2 


6/ PECO 


000042 

000046 

DMPARC: CMP 
BEG 
TYPE 
LCUEL 

004416 


JSR 

LENGTH: 0 

004112 


TST 

BHE 

00001 C 

004112 

MOV 

004112 

000006 

LENOKA: CMP 
BHIS 
LENGKB: TYPE 

m 

BR 

004112 

000010 

LENOKC: CflP 
BHI 

000006 

004112 

SUB 

904112 


ASL 

304112 


MOV 

004206 

001672 

MOV 

HOP 

RTS 


LENGTH 
LENOKA 
•8. .LENGTH 
LENGTH, «6 
LENOKC 


, ACTin 
, BR IF YES 


, GET LENGTH ANO PUT 
. HERE 


IT 


, CHARACTER LENGTH SELECTEO MUST 
- BE BETWEEN 6-8 
, CARRIAGE RETURN SELECTS 8 


DMPARC 
LEN6TH, 18. 

LENOKB 
•6, LENGTH 
LENGTH 
LENGTH, XI 

LENOKOU). MCARNSK 


.SET CHARACTER LENGTH MASK 


7 -EXIT PARAMETERS ROUTINE 

.THE BELOW TABLE REPRESENTS THE CHARACTER LENGTH MASK FOR 5,6.7. AND 8 
;B ITS PER CHARACTER RESPECTIVELY, 

LENOKO: 177740 
177700 
177600 
177400 


004366 


TIMER: 

CLR 

177777 

001440 


MOV 

017102 

001400 


MOV 

004336 

176306 


MOV 

000910 

176302 


MOV 

000001 

176264 


MOV 

000106 

176264 


MOV 

177776 



CLR 

000044 

002076 

TINEA: 

MOV 

000001 

004366 


AOO 

•ME 

176226 



CLR 

000340 

177776 


MOV 

ERROR 

•R 

002076 


TIMES: 

OEC 



•HE 




» 

175200 


TIMEC: 

CLR 

004366 

004370 


NOV 

004370 



ROR 


.CALCULATE MACHINE TIME TO TRANSMIT ONE CHARACTER 
TINE1 
•-1.UCT 
I0UT8UF.CAT 
•TIlCCaCUIMT 
8PRTY7* 8CLXLVL 
ffLllTQ, 


;S£T UP TO TRANSMIT 
; t CHARACTER ON LINE 


1 


;LOAD RECEIVER INTERRUPT 
; AND PRIORITY 

__ ; START TRANSMITTING 

M!T6««lT2<6ITa.aCSR ;SET IE BIT 


MPSU 
•44* COUNT 
•1* TIMEl 
TIMEf 
OCSR 

•PRTY7.PSW 

TIMER 
COUNT 
. -4 
TINEA 
BCSR 

TIME!# TIME14 
TIME14 


;SET PROCESSER PRIORITY LEVEL = 0 
; INCREMENT MACH. TIME TO TRMSMIT 


.SET PROCESSER PRIORITY LEVEL * 7 
; TRANSMITTER FAILED TO INTERRUPT 


SEG DC 


SCO 0025 
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004354 

004356 

004362 

004364 

00** 356 
00** 370 


00** 372 
00** 378 
004102 
001101 
001406 
001412 
001114 


001172 

004176 


000241 

006037 

022626 

000207 

000000 

000000 


012702 

010262 

006022 

006722 

022702 

100371 

000207 


001416 

001420 

001422 

004130 

0044* 

004136 

001112 

001116 

001162 

004166 


001610 

004611 

001616 


004610 

001612 

001616 

001662 


004 37Q 


010046 

006016 

012737 

106777 

100376 

117700 

14270C 

110077 

122700 

001143 

122700 

001416 

112700 

132700 

001031 

006315 

006316 

006316 

160016 

006337 

001122 

000711 

106777 

100376 

012777 

106777 

100375 

006077 

106777 

100375 


CLC 

ROR T 

P0PSP2 
RTS 7 


T I ME 1 4 


T I ME 1 . OPEN 
TIME14: OPEN 


/ RESTORE STACK POINTER 
.EXIT TIME CALCULATION ROUTINE 

; CONTAINS MACHINE TIME TO XMIT 1 CHAR 
/ CONTAIN TIME TO XMIT 1/4 CHAR 


000302 

177776 


000776 


; SUBROUTINE TO PUT HALT,. 42 IN VECTOR AREA (0300-1000) 


OVRLAY. MOV 
IV MOV 
CLR 
TST 
CMP 
BPL 
RTS 


1302, R2 

R2, -2(R2) 

(R2H 

(R2H 

• 776, R2 

If 

7 


; SUBROUTINE TO RECEIVE ORTA 

, THIS SUBROUTINE RECEIVES OATA FROM THE KEYBOARD (UP TO SIX OCTAL 
;DIGITS ANO PLACES THEM INTO THE AOORESS FOLLOWING THE SUBROUTINE 
; CALL ( JSR S,R£CO>. HO REGISTER CONTENTS ARC OISTURSEO. 


; SUBROUTINE TO INPUT OATA FROM TTY 


000007 

176432 

175426 

000200 

175422 

000026 

000015 

000060 

000110 


004674 


004674 


175346 

000012 

175332 

175326 

175320 


175340 


RE CD: 

MOV 

RO.-(SP> 

If: 

CLR 

(5) 


MOV 

17, CHT 

2t: 

TSTB 

BTKCSR 


BPL 

2f 


MOVB 

BTKOBR.RO 


II Cl 

I200.RO 


MOVB 

RO, BTPOBR 


CHPB 

•25, RO 


BEQ 

Sf 


CHPB 

• 15, RO 


•EQ 

6f 


• ICI 

•60, RO 


• ITB 

•110, to 


BNE 

7f 


ASL 

(5) 


ASL 

(5) 


ASL 

(5) 


BIS8 

RO, (6) 


OCC 

CNT 


ICQ 

7S 


Bt 

2f 

6f: 

TSTB 

BTPCSR 


BPL 

6f 


MOV 

112, BTPOBR 

8f : 

TSTB 

BTPCSR 

BPL 

If 


CLR 

BTPOBR 

9f: 

TSTB 

BTPCSR 


BPL 

9S 


.CLEAR OtO OATA 
. SET CHAR COUNT 
.WAIT FOR CHAR 


;STRIP OFF PARITY 
;ECHO CHARACTER 
; IS IT A U 
; BRANCH IF YES 
; IS IT A <CR> 

; BRANCH IF YESS 

; CHECK FOR 0-7 (8) 
; BRANCH IF HOT 


; SHIFT OATA 
; INSET NEW CHAR 

;ONLY 6 CHAR'S PLEASE 
.NEXT CHARACTER 

; WAIT FOR READY 
; TYPE <LF> 

;UAIT FOR READY 
.LOAD CHAR 


;,*+0 


{ 


SEQ 002b 
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1203 

009559 

□05725 


TST 

(R5)+ 

120H 

009S66 

012600 


MOV 

(SPH/RO 

1205 


000205 


RTS 

R5 

1206 

009562 

109000 

7S 

TYPE 


1207 

009569 

020017 


Ml 


1208 

009566 

109000 

5S: 

TYPE 


1209 

009570 

017666 


SCTLU 


1210 

009572 

000712 


BR 

IS 

1211 

009579 

000000 

CNT: 

0 


1212 






1213 



; POWER 

FAIL ROUTINE 

1219 

009576 

012737 009606 000029 

PFAIL: 

MOV 

IPURUP.D 

1215 

009609 

000000 


HALT 



. ADJUST R5 
; RESTORE RO 


; START OVER 


1216 

1217 

1218 00*1606 

1219 009610 

1220 009619 

1221 009616 

1222 
1223 
1229 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 


000005 

012706 

109001 

000137 


009622 

009626 

009632 

009636 

009692 


1239 

1235 

1236 

1237 

1238 

1239 

1290 

1291 

1292 

1293 
1299 
1296 

1296 

1297 
1296 
1299 
12M 
1261 

1262 009710 

1263 009716 
1269 009720 
1266 009722 

1266 009730 

1267 009736 

1268 009799 


001200 

00251H 


; POWER UP SUBROUTINE 
PURUP: RESET 

nov ISPSOT, 96 

ERROR 

JMP MRSTAT2 


;6IVE TELEPRINTER TINE TO STMT 

; TYPE POWER FOIL ERROR 
; 60 RESTART PROGRAM 


i L I HE TEST SUMOUTMC: INIS LINE TEST PtOVIOCS SEVERAL TESTS ON A Oflll LINE 
; THE SUBROUTINE IS CALLED BY JSR 5/ INTST. THIS INSTRUCTION PROVIOES THE 
; LINE BIT AND LINE NUMBER THE FOLLOWING LINE TESTS ARE PERFORMED 
;UAITS UNTIL CHARACTER SKOULO HAVE BEEN TRAN5MITTE0/ THEN TESTS 

;THAT BAR 8 IT CLEARED ;00 »CXT TEST IF ERROR 

/READY SET .00 ICXT TEST IF ERROR 

.WORD COUNT WENT TO 0 .00 NEXT TEST IF ERROR 

; CURRENT ADDRESS 010 NOT INCREMENT .00 NEXT TEST IF ERROR 
; INTERRUPTS TO CORRECT VECTOR ;D0 NEXT TEST IF ERROR (NO INTERRUPT) 
/READY BIT CAN IE CLCARCO ;CND OF TEST 

;GET LINE NUMBER 
;60 FORM LINE BIT (FOR BAR ) 

GO TO TRANSMIT SUBROUTINE 
TRANSMIT ONE CHARACTER 
WAIT IN 
THIS 
LOOP 

UNTIL THE 
TRANSMITTER 
IS FINISHEO 

BAR SHOULO NOW BE CLEM 
•RANCH IF IT IS 
ERROR! BAR BIT FAILEO TO CLEM 
TEST READY BIT SHOULO BE SET 
•RANCH IF SET 
ERROR! READY NOT SET 
6CT LINE NUMBER 
WORD COUNT SHOULO BE 0 

; ERROR! LORO COUNT NOT EQUAL TO 0 

; CURRENT ADORE SS SHOULO NOT HAVE INCREMENTED 


012537 

016730 


XHTTS T : 

MOV 

(6K.MUNE 

009737 

007099 



JSR 

7.6TLINI 

005037 

001570 



CLR 

XMTOAT 

009537 

006296 


IS: 

JSR 

5.MXHIID 

177777 




-1 


012703 

000010 



MOV 

•10. X3 

'f'.'rl 




CLR 

X2 




2S. 

OEC 

X2 

001376 




•HE 

. -2 

006303 




OEC 

X3 

001179 




•HE 

2S 

017737 

179656 

001566 


MOV 

BBM/RCVDAT 

001901 




•CO 

3S 

109011 




CRR0R1 


006777 

179692 


3S: 

TST 

9CSR 

100901 




•Ml 

9f 

109001 




ERROR 


013701 

016730 


9S: 

MOV 

ML INC. XI 

016137 

001990 

001566 


MOV 

WCT<1 ). RCVOAT 

001901 




ICO 

51 

109011 




CRR0R1 


012737 

017102 

001570 

5S: 

MOV 

IOUTBUF, XMTOAT ; 

016137 

001900 

001566 


MOV 

CAT(1).RCVDAT 

023737 

001566 

001570 


CMP 

RCVOAT. NIT OAT 

001901 




BEO 

61 


SCO 0027 




SEQ 0028 
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1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 
1283 
128*4 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 
1 299 
1296 

1296 

1297 

1296 00603*1 012737 177777 

1299 006092 006037 001600 

1300 005096 006037 001602 

1301 006062 012737 0O03H0 

1302 006060 012637 016730 

1303 006069 009637 006296 
1309 006070 177777 

1306 006072 062777 000001 

1306 006100 006777 179936 

1307 006109 100375 

1300 006106 092777 100000 

1309 006119 006016 

1310 006116 106777 179920 

1311 006122 100909 

1312 006129 006216 

1313 006126 001373 
1319 006130 109001 

1315 006132 000660 

1316 0061J9 006726 

1317 006136 012777 006172 
1310 006199 062777 000100 

1319 006162 00603 7 177776 

1320 006166 000290 

1321 006160 012737 000390 

1322 006166 109001 

1323 006170 000631 

1329 006172 012737 000390 
1326 mm 022626 

1326 006202 092777 000300 

1327 006210 106777 179326 

1326 006219 100002 

1329 006216 109001 

1330 006220 000616 


, RECEIVER LINE TESTS 

/ THE RECEIVER LINE TEST SUBROUTINE IS ENTEREO WITH 
;A JSR 6/ RCVTST INSTRUCTION FOLLOWED BY THE 
; L INE BIT AND LINE NUMBER Of THE LIIC TO BE 
, TESTEO. THE SUBROUTINE PERFORMS THE FOLLOWING 
; TEST AS SHOWN BELOW. IN THE EVENT Of AN ERROR 
, THE REMAINING TESTS ARE A60RTE0 
, TEST SEQUENCE AND ADDRESS TAG 

CHARACTER DONE SETS 
CHARACTER DONE CAUSES INTERRUPT 
CHARACTER OONE CAN BE CLEAREO 
TUMBLE TABLE ENTRY IS CORRECT 
HO ENTRY IN NEXT TABLE ADORESS 
HARDWARE TABLE POINTER INCREMENTED 
NEXT ENTRY WAS CORRECT 


100000 179926 

179920 


179906 

179370 


000390 177776 


000390 177776 


179332 


RTSTA 

RTSTB 

RTSTC 

RTSTD 

RTSTE 

RTSTF 

RTSTG 


, NOTES. 


017102 RCVTST: 


177776 


179992 


IF THE HARDWARE PROVIDES AN INCORRECT VECTOR 
ADORE SS THE PROGRAM WILL HALT AND DISPLAY 
THE INCORRECT VECTOR+2 IN THE AOORESS LIGHTS. 


MOV 
CLR 
CL'S 
MOV 
MOV 
JSR 
-1 
BIS 
TST 
BPL 
• 1C 
CLR 
TSTB 
BHI 
INC 
BNE 
ERROR 
BR 
TST 
MOV 
BIS 
CLR 
HOP 
MOV 
ERROR 
BR 
MOV 
CMP 
BIC 
TSTB 
BPL 
ERROR 
BR 


•-1.0UTBUF 
TUMTAB 
TUMTAB+2 
IPRTY7. BIPSW 
<5H. LltC 
5# BBXMlTD 

•BlTO.dCSR 
BCSR 
. -9 

CBIT1S.GCSR 

-(SP> 

acsR 

26 

<SP) 

It 

8f 

(SPH 

•3t>BCLKfNT 
BBIT6. BCSR 
BCPSU 

•PRTY7, PSW 


; LOAD ALL 1*S INTO OUTPUT BUFFER 
; CLEAR THE FIRST 
; TWO TUMBLE TABLE AOORESSES 
; LOCK OUT INTERRUPTS 
GET LINE NUMBER 
; TRANSMIT 1 CHARACTER (O S) 

; ON LINE SPEC1FIE0 BY JSR 
.SET 60 BIT 
; WAIT FOR TRANSMITTER 
;T0 TRANSMIT 1 CHAR 
; CLEAR TRANSMITTER READY FLAG 
;S£T MATCH 006 TIMER 
; TEST CHAR. OONE FLAG 
; BRANCH IF SET 
; WAIT FOR TX FLA6 

.ERROR* CHAR. OONE FLAG FAILED TO SET 

;60 TO EXIT 

; RESTORE STACK PTR 

;LOAD RECEIVER INTERRUPT VEC ADRS. 

;SET RECEIVER IE BIT 

; ENABLE INTERRUPTS 

;LOCK OUT INTERRUPTS 
; RECEIVER FAILED TO INTERRUPT 
;G0 TO EXIT 
.LOCK OUT INTERRUPTS 


St ;G0 TO EXIT 

IPRTY7. BRPSW .LOCK OUT INTERRUPTS 

(6H. <6)+ 

CB I T7+BIT6. dCSR .CLEAR CHAR. OONE FLAG 
OCSR ;TEST THAT CHAR DONE FLAG CLEAREO 

9f ; BRANCH IF CHAR. OONE FLAG CLEARED 

; ERROR! CHAR. DONE FAILED TO CLEAR 
8S ;G0 TO EXIT 


SCO 0029 


atm>o dmiia lgc tsi macyii 

CZDMAD Pll 28-APR-78 13:66 


1331 

005222 

1332 

005230 

1333 

005236 

1336 

005266 

1335 

005252 

1336 

005260 

1337 

005266 

1338 


1339 


1360 

005276 

1 JN1 

ivW 

1362 


1363 

i 1 . 1 A Jr 

1366 

005306 

1365 

005316 

1366 

005316 

1367 

@35322 

1368 

005326 

1369 

005326 

1350 


1351 


1352 

005360 

1353 

005362 

1356 


1355 

I‘.A 

1356 

005366 

1357 

l-'Y’A 

1358 


1359 

005372 

1360 

005376 

1361 

005376 

1362 

006606 

1363 

006612 

1366 

006620 

1365 

005626 

1366 

005636 

1367 

005662 

1368 


1369 

005650 

1370 

006652 

1371 

005656 

1372 


1373 


1376 


1375 


1376 


1377 


1378 


1379 


1380 

005656 

1381 

005666 

1382 

006670 

11*3 

006676 

1386 

006676 

1385 

006606 

13*6 

006510 


013737 001600 
062737 020000 
012737 000377 
063737 001572 
153737 016730 
052737 100000 
023737 001566 


001602 

106011 

000665 

005037 001600 
013737 001602 
001606 

005037 001570 
106011 
000653 

006537 006266 
177777 

005777 176202 
100375 

105777 176176 

100375 

062777 000200 
013737 001600 
001606 

005037 001570 
106011 
000627 

013737 001602 
062737 020000 
012737 000377 
063737 001572 
1S3737 016730 
052737 100000 
023737 001566 

001601 

106011 

106006 


012777 000001 
011577 176056 
105777 176066 
100375 

062777 000200 
105777 176032 
100375 


0 3 
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001566 

H5: 

MOV 

TUMTAB. RCVDAT 

001566 


BIC 

•BIT1 3. RCVDAT 

001570 


MOV 

1377, XHTDAT 

001570 


BIC 

CARHSK.N1TDAT 

001571 


Bi SB 

LINE,XHTDAT4l 

001570 


BIS 

•B IT15.N1TUAT 

001570 


CMP 

RCVDAT, NIT DAT 



BEQ 

55 



ERR0R1 

BR 

85 


55: 

CLR 

TUMTAB 

001566 


MOV 

TUMTAB 42, RCVDAT 



BEQ 

65 



CLR 

ERR0R1 

XMTOAT 



BR 

85 


65. 

JSR 
• 1 

5, aiXNITO 



TST 

acsR 



BPL 

. -6 



TSTB 

acsR 



BPL 

. -6 

17H16H 


BIC 

« B 1 T7, BCSR 

001566 


MOV 

TUMTAB. RCVDAT 


BEQ 

75 



CLR 

ERR0R1 

XMTOAT 



BR 

85 

001566 

75: 

MOV 

TUMTAB42. RCVOAT 

001566 


SIC 

•BIT13.RCV0AT 

001570 


MOV 

•377, XHTDAT 

001570 


BIC 

CARMSK, XMTOAT 

001571 


BIS8 

LINE.XMTDAT41 

001570 


BIS 

•BITIS.NtTOAT 

001570 


CMP 

RCVOAT- NITOAT 



BEQ 

ERR0R1 

85 


85: 

SCOPE 



;GET TUMBLE TABLE ENTRY 
; CLEAR PARITY INDICATOR 
; LOAD XHTOAT WITH TRANSMITTED DAI A 
; CLEAR NON TRANSMITTED BITS 
; LOAD XMTOAT WITH PROPER LUC • 

; SET VALIO OATA ENTRY BIT IN XHTDAT 
; COMPARE TUMBLE TABLE ENTRY (RCVDAT) L 
• rnffsrrT >r««T 


b*ROR ! INCORRECT TUMBLE TABLE 
; T .NTRY; 60 TO EXIT 


. ET NEXT ENTRY 
;6 <> mCH IF ALL O'S 

; ERROR! FALSE ENTRY IN NEXT 
; TUMBLE TABLE AOORESS 
, TRANSMIT 1 CHARACTER (ALL I S) 
; ON LINE SPECIFIED BY JSR 
;UAlT FOR TRANSMITTER 
; READY FLA6 

; TEST FOR THE OONE FLAG 


; CLEAR CHAR. OONE FLAG 
; TEST THAT HARDWARE TUMBLE 
; TABLE POINTER INCREMENTED (42) 


; ERROR! TUMBLE TABLE POINTER DID 
;NOT INCREMENT; 60 TO EXIT 
, GET TUMBLE TABLE ENTRY 
; CLEAR PARITY DC I CRT OR 
.'LOAD XMTDRT WITH TRANSMITTED DATA 
; CLEAR NON** TRANSMITTED BITS 
.LOAD LINE • INTO XMTOAT 
; SET VALID OATA ENTRY BIT INTO XMTOAT 
; COMPARE TUMBLE TABLE ENTRY (RCVDAT) & 
.CORRECT RESULT (XMTOAT) 


.ERROR! 2ND TUMBLE TABLE ENTRY 
;UAS INCORRECT; SCOPE 


176056 

176036 


SUBROUTINE TO TEST BREAK OPERATION 

THE TRANSMITTER MILL TRANSMIT THE BREAK FOR TUO CHARACTER 
TINES AND THEN THE FOLLOWING TESTS WILL BE PERFORMED 
A VALIO OATA ENTRY WAS MADE BKTSTB 


BRKTST: 


BREAK BIT SET 
OATA HAS ALL 0‘S 


MOV 

MOV 

TST8 

8PL 

BIC 

TST8 

BPL 


n.acsR 
(S).GBKCSR 
DC SR 

. -6 

•BIT7. dCSR 
BCSR 

. -6 


8KTSTC 

BKTSTD 

; SET THE 60 BIT 
;SET THE BREAK BIT 
.WAIT FOR THE RECEIVER TO 
.RECEIVE BREAK 
; CLEAR FLAG 

;UAIT FOR THE RECEIVER TO 
; TO RECEIVE BREAK 



SEQ 0030 


czdmado omua lgc tst macyii 3oau052) 
CZDMPD. P11 28-APR-78 13: 99 


1387 

006612 

092777 

000200 

179022 

1388 

WTcrTl 

006077 

179022 


1389 


006737 

001600 


1390 


100902 



1391 

006632 

109001 



1392 


000921 



1393 


032737 

090000 

001600 

1399 

006699 

001002 



1396 

006696 

109001 



1396 


000913 



1397 


106737 

001600 


139t 

I'iV/jil 

001910 



139? 


006037 

001566 


1900 


113737 

001600 

001566 

1901 

006672 

006037 

001570 


1902 

006676 

109011 



1903 

006600 

109006 



1909 





1906 





190b 





1907 





1908 





1909 

006602 

012537 

002076 


1910 

006606 

006037 

001570 


1911 

006612 

009537 

006229 


1912 

006616 

020233 



1913 

006620 

017102 



1919 

nfffibTT 

000100 



1915 

006629 

012737 

000001 

001569 

1916 

006632 

006037 

016730 


1917 

006636 

012777 

000001 

173676 

1918 

00G699 

009537 

006296 


1919 

i 

177700 



1920 


013737 

009366 

005666 

1921 

1 

01370* 

002076 


1922 

i 

10990U 



1923 

t'i ft"- 

000000 



1929 


006309 



1926 


001379 



1926 


062737 

000002 

016730 

1927 


006337 

001569 


1928 

LL 

103366 



1929 

006710 

012709 

000100 


1930 

006719 

013737 

009366 

<05729 

1931 

0C5722 

109900 



1932 

006729 

000000 



1933 

006726 

006309 



1939 

006730 

001379 



1935 


017737 

173606 

001566 

1936 

006790 

001902 



1937 

006792 

109011 



1938 

006799 

000913 



1939 

006796 

022777 

100201 

173566 

1990 

006769 

001907 



1991 

006756 

012737 

100201 

001570 

1992 

006769 

017737 

173562 

001566 


£ 3 
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BIC 

«B IT7/ iCSR 

/CLEAR FLAG 


CLR 

BBKCSK 

; CLEAR BREAK BIT 

IV 

TS1 

TUMTAB 

; TEST FOR VALID DATA ENTRY 


BMI 

ERROR 

25 

; ERROR! NO VALID DATA ENTRY 


BR 

95 

; GO TO EXIT 

25: 

BIT 

IB IT19. TUMTAB 

;TEST THAT BREAK BIT IS SET 

BNE 

35 

; IN TUMBLE TABLE 


ERROR 


; ERROR! BREAK BIT FAILED TO SET 


BP 

95 

;G0 TO EXIT 

35 

TSTB 

TUMTAB 

; TEST THAT DATA IS ALL O'S 


BEQ 

95 



CLR 

RCVOAT 



MOVB 

TUMTAB/ RCVDAT 

;GET RECEIVED OATA 


CLR 

ERR0R1 

XMTOAT 

; ERROR ! DATA HAS NOT ALL 0‘S 

95 

SCOPE 


; SCOPE 


, SUBROUTINE TO TRANSMIT 1 RECEIVE ON ALL LI>€S THE DELAY BETWEEN 
, TRANSMITTING ON A LINE IS SUPPLIED BY THE CALLING JSR INSTRUCTION 
; NOTE NO DATA CHECKING IS PERFORMED BY THIS TEST 


OLYXMT: 

MOV 

(5)4/ BICOUNT 

,6£T CHARACTER OELAY COUNT 


CLR 

XMTOAT 



JSR 

5/ SHOVE 

;LOAO OUTPUT BUFFER WITH DATA 


MSGl 

OUTBUF 

69. 

MOV 

•LB 1 TO. *L INBIT 

; TO BE TRANSMITTED 


CLR 

MLIHE 


15: 

MOV 

•bito, acst 

;SET THE 60 BIT 

25: 

JSR 

5/ BRXMI7D 

; TRANSMIT 69. CHAR. 


-69. 


;0N A LINE 


MOV 

MTIME1/95 



MOV 

Bl COUNT, 99 

;GET CHARACTER OELAY COUNT 

35: 

DELAY 



95: 

0 




DEC 

99 



BNE 

35 



AOD 

12. LINE 

/FORM NEXT LINE NUMBER 


ASL 

LINBIT 

/SHIFT LINE BIT 


BCC 

25 

; BRANCH IF ALL LINES NOT CONE 


MOV 

169. / 99 



MOV 

TIME1/65 


55: 

DELAY 



65: 

0 




DEC 

99 



8NE 

55 



MOV 

88 AR. RCVOAT 

; GET t TEST BAR OATA 


BEQ 

75 

; EXIT IF DONE 


ERR0R1 

BR 

CMP 

85 

1100201, dCSR 

.ERROR! BAR SHOULD'VE BEEN CLEAR 

75: 

; TEST THAT ONLY DONE. GO. 5 READY BITS ARE SET 

BCQ 

85 



MOV 

It 00201 .XMTOAT 



MOV 

BC SR, RCVOAT 

;GET CSR CONTENTS 


SEQ 0031 


F 3 
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CZDMAD. 

PU 28-APR-78 

1643 

005772 

104011 

1644 

006774 

005726 

1446 

006776 

104006 

1446 



1447 



1448 

006000 

011637 

1449 

006004 

062716 

1460 

006010 

017737 

1461 

006016 

001413 

1462 

Mi i^iyjI 

012737 

1463 

I'!'!**” 1 

162737 

1464 


001404 

1466 

|.V*TP 

006337 

1466 

006042 

001376 

1467 

006044 

000766 

1468 

006046 

000002 

1469 

006060 

000000 

1460 

006062 

000000 

1461 



1462 



1463 

006064 

012737 

1464 

006062 

004537 

1466 

006066 

006076 

1466 

006070 

006077 

1467 

006072 

DU0C05 

1468 

006074 

000207 

1469 

006076 

000000 

1470 

006100 

oooooo 

1471 

006102 

000000 

1472 



1473 



1474 

006104 

013737 

1475 

006112 

006137 

1476 

006116 

006137 

1477 

006122 

001002 

1478 

006124 

006237 

1479 

006130 

042737 

1480 

006136 

013737 

1481 

006144 

013701 

1482 

006150 

000240 

1483 

006152 

000207 

1484 



1486 



1486 

006154 

104007 

1487 

006156 


1488 


■ •Ir 1 - ‘lE- 

1489 

006162 

012502 

1490 

006164 

060201 

1491 

006166 

010403 

1492 

006170 

Mi gTfVJB 

1493 

006174 


1494 

i ’ V i »| 

110B! 

1496 

006202 

042704 

1496 

006206 


1497 

006210 


1498 

006212 



84: 


ERR0R1 

POPSP 

SCOPE 


; SUBROUTINE TO OELRY fl 


006060 


DLY 

MOV 

(6), 34 

000002 



AOD 

•2, (6) 

000034 

006060 


MOV 

3.14, 34 




BEQ 

24 

000060 

006062 

IS 

MOV 

150,44 

000001 

006060 


SUB 

11,34 




BEQ 

24 

006062 



DEC 

44 




BNE 

-4 




BR 

14 



2S 

RTI 




3S 

OPEN 




44 

OPEN 



, INCORRECT CSR CONTENTS 
, RESET THE STOCK 
, SCOPE 

SPECIFIED NUMBER Of MILL ISECONOS 
, GET OELRY COUNT RDORESS 
; SET UP EXIT RDORESS 
; GET DELAY COUNT 
; EXIT IF NO DELAY 


1 77777 006076 

006224 


/ SUBROUTINE TO 


INBIN 


RIND. 

PTO 

PT1: 


MOW 
JSR 
RINO 
RIN041 
5 

RTS 

OPEN 

OPEN 

OPEN 


INITIALIZE 
1-1, RINO 
X6. SHOVE 


X7 


; EXIT 

; CONTAINS DELAY COUNT 
; CONTAINS OELRY ROUTINE CONSTANT 

BINARY COUNT PATTERNS 

; SET ALL VARIABLES 
; TO MINUS 1. 


;EXIT 


006100 006102 

006102 

006076 

006102 

177600 006102 
006102 006100 
006102 


; SPECIAL BINARY 


GTB IN- 


177770 

000060 

000007 


, OCTAL 
OACMV: 


OACNVA 


MOV 
COM 
COM 
BNE 
INC 
BIC 
MOV 
MOV 
NOP 
RTS 

TO ASC 1 1 
SAVREG 
MOV 
MOV 
MOV 
ADO 
MOV 
BIC 
ROD 

movb 

BIC 

ROR 

ROR 

ROR 


COUNT PATTERN 

PT0/PT1 

PT1 

RINO 

. +6 

PT1 

•1 77600, PTl 
PTl/PTO 
PTl, XI 

X7 


SUBROUTINE 
; PREVIOUS 


EXITS UITH BIN CHAR 
BIN CHAR TO PTl 


IN R1 


, MASK TO 8 BITS 
SAVE BIN CHAR IN 
,8 IN CHAR TO R! 

;£XIT 


PTO 


CONVERT ROUTINE 

8<S)*,X4 
<S)+,X1 
<5)+,X2 
X2, XI 
X4,X3 

II 77770, X3 
160, X3 
X3, -( 1 ) 

*7,X6 

X6 

X4 

X4 


, SAVE REGISTERS ON THE STACK 
, GET OCTAL VALUE. 

, GET DESTINATION ADOR 
;G£T CONVERT COUNT. 

; DEVELOP AOOR TO STORE 1ST CHAR 

; ISOLATE LEAST SIGNIFICANT DIGIT 
, CONVERT DIGIT TO ASCII. 

, STORE ASCII CHARACTER. 



SEQ 0032 


G 3 
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P11 

Z8-APR-78 

13 99 




1999 

006219 

005302 



DEC 

X2 

1500 

006216 

001363 



BNE 

OACNVA 

1501 

006220 

10H010 



RSTREG 


1502 

006222 

000205 



RTS 

7.5 

lbUJ 

150H 





, SUBROUTINE TO 

HOVE A VARIABLE 

1505 

006229 

109307 



BHOVE. SAVREG 


1506 

006226 

012501 



MOV 

(5H, 7.1 

1507 

006230 

012502 



HOV 

(5H, 7.2 

1508 

006232 

012503 



HOV 

(5)+, 7.3 

1509 

006239 

112122 



IS HOVB 

(1 >♦, (2H 

1510 

006236 

005303 



DEC 

X3 

1511 

006290 

001375 



BNE 

IS 

1512 

006292 

109010 



RSTREG 


1513 

006299 

000205 



RTS 

xs 

1519 

1515 





, SUBROUTINE TO 

TRANSHIT DATA 

1516 





, JSR 5.XHITD 


1517 

006296 

010096 



XHITD HOV 

XO,-(SP> 

1518 

006250 

013700 

016730 


HOV 

MLINE,XO 

1519 

006259 

009737 

0070*9 


JSR 

7/ M6TLINB 

1520 

.vv». 

012777 

001900 

173262 

HOV 

•CAT, MASREG 

1521 


012760 

017102 

00190C 

HOV 

I0UT8UF,CAT(0) 

1522 


012560 

001990 


HOV 

<5H,WCT<0> 

1523 

• < i 

053777 

001569 

173236 

BIS 

ML INBIT, MAR 

1529 


012600 



HOV 

(SPH.XO 

1525 

006310 

000205 



RTS 

5 


, DONE AU OIGITS? 

; BRANCH IF NOT DONE. 

/ RESTORE THE REGISTERS 
; DONE. EXIT. 


SAVE REGS. 
GET-FROfTAOORESS 
GET"TO"ADORESS 
GET COUNT 
HOVE BYTE 
DECREHENT COUNT 
BRANCH IF NOT DONE 
RESTORE REGS. 

OONE EXIT 


SUBROUTINE CALLED BY 


SAVE RO ON THE STACK 
GET IHC 

FORK LINE BIT (FOR BAR) 
INITIALIZE BASE REGISTER 
lOAD FIRST CHAR ADDRESS IN CAT 
GET WORD COUNT 
LOAD LINE POSITION INTO BAR 
RESTORE RO 
, EXIT 


526 

527 

528 


1530 

006312 

012537 

016730 


OATTST: 

HOV 

1531 

006316 

012737 

000199 

002076 

0AT1AA: 

NOV 

1532 

006329 

012702 

017102 



HOV 

1533 


009737 

006109 


IS 

JSR 

IS* 


110122 




HOVB 

1535 

hihu 

006337 

002076 



OCC 

1536 

006*2 

001372 




BNE 

1537 

006399 

012701 

001600 



HOV 

1538 

mo 

006037 

001600 



CLR 

1539 

006*9 

009537 

006229 



JSR 

1590 

006310 

001600 




TUHTAB 

1591 


001601 




TUHTA8+1 

1592 

0063* 

000177 




177 

1593 

nom 

012702 

017296 



HOV 

1599 

006372 

062777 

000001 

173192 


BIS 

1695 

006900 

009637 

006*6 



JSR 

1596 

006909 

1776* 




>100. 

1597 

(KNiOi 

032777 

160000 

173126 

2S 

BIT 

1598 

006919 

001009 




BNE 

1599 

006916 

106777 

173120 



TST8 

1560 

006922 

100371 




BPL 

1561 

0069* 

000915 




BR 

1552 

006926 

032777 

060000 

173106 

3S 

BIT 

1563 

0069* 

001903 




BEQ 

1559 

006936 

109001 




ERROR 


; ROUTINE TO TEST A LINE 
; THE LINE TO BE TESTED IS PROVIDED BY THE JSR CAU TO 
;l(XL CHARACTERS ARE TRIWSHITTEO, RECEIVED AND CHECKED 
<S)+, Ml I HE 
HOD , COUNT 
I0UTBUF.X2 
7 , M6TB IN 
Xt,<2>* 

COUNT 
15 

•TUHTAB, XI 
TUHTAB 
5. BHOVE 


THE ROUTINE 
BY THIS ROUTIIC 

SET ll»C NUMBER 
GET CHARACTER COUNT 
GET AOORCSS OF OUTPUT BUFFER 
GET DATA 

LOAD OUTPUT BUFFER UITH DATA 
;60T ALL DATA? 

;10AD TlVttlE TABLE POINTER 


; CLEAR 
; TUMBLE 
; TABLE 
UOROS 

I I NBUF / X2 ;SETUP INPUT BUFFER POINTER 

•B I TO. GCSR ;SET TIC GO BIT 

5,MXHITD ; TRANSMIT 

.lOa CHARACTERS 

IB I T15+8I T 1H+B I T 1 3. BCSR; TEST IF READY OR ANY ERROR 
35 FLAGS ARE SET 

BCSR ,MAIT FOR THE RECEIVER 

25 * TO RECEIVE A CHARACTER 

IB I T1H+8IT13, iCSP; TEST FOR ERROR FLAGS 
i(5 . BRANCH NO ERROR 



SCO 0033 


. GO EXIT 

, CLEAR TRANSMITTER REAOY FLOG 
. TEST FOR CHARACTER REflOY 

. CLEAR CHAR DONE 8 IT 

, TEST FOR VALID ENTRY 
/ REPORT INVflLIO ENTRY 

.MOVE CHAR FROM TUN. TAB TO INPUT SUFFER 

TY BIT IN PARITY BIT BUFFER 
; GET ROTATE COUNT 
. SET THE CARRY BIT 
. TEST RECEIVED PARITY BIT 
. BRANCH IF RECEIVED PARITY UAS 000 
; CLEAR CARRY BIT 

, ROTATE RECEIVED PARITY INTO PARITY BUFFER 

FOR TX CORRECT LINE 
/ GET TABLE ENTRY 
. CLEAR ALL BUT LINE NUMBER 
; COMPARE LINE NUMBERS 

. GET CORRECT LINE • (X2) 

. GET LINE • (M2) THAT FALSE OATA CAME IN ON 
.ERROR' OATA CAME IN ON A L IX THAT 
.PROGRAM UAS NOT TRANSMITTING ON 
.EXIT TEST 

. IS POINTER AT TX EX 
.OF TX TABLE 

, IXRCXNT POINTER 
.SAVE REGISTER 2ER0 
; FETCH LIX NUMBER 

.HAS TX LAST CHARACTER BEEN TRANSMITTED 
; LAST CHABACTER HRS BEEN TRANSMITTED 
.RESTORE REGISTER ZERO 
.60 UAIT FOR NEXT CHARACTER 
.RESTORE REGISTER 2ER0 


; ROTATE PARITY BUFFER 
; IS. PLACES RIGHT 


.HAVE ALL CHARS BEEN COMPAREO 

.GET TRANSMITTED CHARACTER 
.CLEAR NON- TRANSMITTED BITS 
;GET RECEIVED CHARACTER 
; COMPARE TRANS. I RCVD CHARS 

IRITY OH RECEIVED DATA 
;GET BIT COUNTER 

; CLEAR COMPUTED PARITY INDICATOR 
.LOOK AT RECEIVEO BIT 


SEQ 00 3*4 
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1611 

1612 

1613 

1611 

ISlS 

1616 

1617 

1618 

1619 

1620 
1621 
1622 
1623 
1629 
1626 
1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 
1639 
1636 

1636 

1637 
163* 
1639 

1690 

1691 

1692 

1693 
1699 

1695 

1696 

1697 

1698 

1699 
1660 
1661 
1662 
1663 
1669 

1665 

1666 

1667 

1668 
1669 
1660 
1661 
1662 


006710 

006712 

006719 

006716 

006720 

006722 

006726 

006732 

006736 

006790 

006792 

006799 

006796 

006750 

006752 

006759 

006756 

006760 

006762 


006769 

006770 

006779 

007000 


007010 

007019 

007020 

007022 

007029 

007026 

007030 

007032 

007039 

007036 

007090 

007092 


007066 

007060 


007072 


103001 

005100 

005303 

001372 

000290 

112237 

012706 

009537 

103009 

005700 

001336 

109001 

000739 

005700 

001732 

109001 

000730 

005726 

109006 


006037 

006037 

006037 

006037 

006037 

006037 

006037 

005316 

001360 

000205 

000000 

000000 

000000 

000000 

000000 


010096 

006037 

013700 

000261 

006137 

162700 

100373 

012600 

000207 
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BCC 135 

COM 7.0 

DEC 73 

BNE 125 

NOP 

/ CONTAIN AU 1 ‘S, IF 


, BRANCH IF A 0 
.COMPLEMENT RO IF A 1 
; DECREMENT BIT COUNTER 
;LOOK AT NEXT BIT IF NOT DONE 
; IF CONFUTED PARITY MAS 000 RO UHL 
EVEN RO * 0 


001566 

hOVB 

(2)+, RCVDAT 

.GET RECEIVEO CHARACTER 

000001 

nov 

• 1.75 

; ROTATE PARITY BUFFER i PLACE 

006769 

JSR 

5. RORPARBUF 

;R IGHT LEAVING RECEIVEO PARITY BIT IN CARRY 


BCC 

195 

.BRANCH IF RECEIVED PARITY MAS EVEN 


TST 

70 

; TEST FOR CONFUTED 000 PARITY 


BNE 

105 

; BRANCH IF COMPUTED 1 RECEIVED MAS 000 


ERROR 


.ERROR! COMPUTED *EVEN, RECE IVED = 000 


BR 

105 

; CONTINUE TEST 


195 TST 

70 

; TEST FOR EVEN COMPUTED PARITY 


BEQ 

105 

; BRANCH IF COMPUTED PARITY MAS EVEN 


ERROR 


.ERROR! COMPUTEO =000, RECE IVEO = EVEN 


BR 

105 

.CONTINUE TEST 


155 POPSP 


.REPOSITION STACK POINTER 


SCOPE 


; SCOPE 


007026 

007030 

007032 

007039 

007036 

007090 

007092 


.ROUTINE TO ROTATE PARITY BUFFER. 


RORPARBUF: ROR PARO 

ROR PARI 

ROR PAR2 

ROR PAR3 

ROR PAR9 

ROR PARS 

ROR PAR6 

DEC (SP) . DECREMENT ROTATE COUNT 

BNE RORPARBUF 

RTS 5 

; PARITY BUFFER 
PARO: OPEN 

PARI: OPEN 

PAR2: OPEN 

PAR 3: OPEN 

PARK: OPEN 

PAR5: OPEN 

PAR6: OPEN 

.SUBROUTINE TO FORM LINE BIT POSITION UITH THE LINE « IN LINE 


PARO 

PARI 

PAR2 

PAR3 

PAR< 

PARS 

PAR6 

(SP) 

RORPARBUF 

5 


001569 

016730 

001569 

000002 


GTL IN6. 


XO.-(SP) 
ML INBIT 
MUNE.XO 

LIN8IT 

13.70 

If 

(SP )♦, 70 
7 


SAVE RO ON THE STACK 

CLEAR LINE BIT 

GET LINE 

SET CARRY 

SHIFT LINE BIT 

SUBTRACT 2 FROM LINE NUMBER 

BRANCH IF GREATER THAN 0 

RESTORE RO 

EXIT SUBROUTINE 


SCO 0035 
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1663 

1669 

007076 

109000 



PRGO 

TYPE 



1665 

007100 

020103 




PRG0T1 



1666 

007102 

012737 

007136 

002000 


nov 

9RT0/ KSTART 

, GET AOORESS OF FIRST TEST 

166? 

007110 

005037 

002009 



CLR 

RTNNO 

, CLEAR ROUTINE I 

1668 

007119 

000137 

002596 



JflP 

SR SET 


1669 

007120 

012737 

007136 

002000 

PR GOP 

nov 

IRTO, KSTRRT 

; GET AOORESS OF FIRST TEST 

1670 

007126 

005037 

002009 



CLR 

RTNNO 

; CLEAR ROUTINE NUN6ER 

1671 

007132 

000137 

002600 



jup 

6ETR0Y 

; GO ANO START PROGRAN 

1672 





.ttmtitmtmmmmtimittmtttmmtmmiimimtimmim 

1673 

007136 

000000 



RTO. 

0 


; ROUTINE 10 1 

1679 

007190 

007200 




RTl 


; AOOR Of NEXT ROUTINE t 

1675 

007192 

000199 




100. 


. ITERATION COUNT * 

1676 

007199 

007196 




RTOA 


.SCOPE ENTRY POINT t 

1677 


000000 




X»X+1 



1678 

1679 

1680 










; TEST 

ABILITY TO REFERENCE 

CSR WITHOUT TRAPPING 

1681 

007196 

012737 

007170 

000009 

RTOA: 

NOV 

115/ MERRVEC . SET UP ERROR TRAP 

1682 

007159 

00577? 

172362 



TST 

acsR 

REFERENCE CSR 

1683 

007160 

012737 

000006 

000009 


NOV 

•CRRVEC+2. iiERRVEC .RESET TINE OUT TRAP 

1689 

007166 

109006 




SCOPE 



1685 

007170 

162716 

000009 


15: 

SUB 

19, (6) 

.RESTORE PC TO MERE THE ILLEGAL 

1686 







; REFERENCE OCCURED 

1687 

007179 

109001 




ERROR 


; ERROR! ILLE6AL REFERENCE OCCUREO 

1688 

007176 

000002 




RTl 


.LOOP ILLEGAL REFERENCE INSTRUCTION 

1689 






1690 

007200 

000001 



RTl 

1 


; ROUTINE • 1 * 

1691 

007202 

007252 




RT2 


.AOOR Of NEXT ROUTINE. * 

1692 

007209 

000199 




100. 


. ITERATION COUNT t 

1693 

007206 

007210 




RT1A 


; SCOPE ENTRY POINT. * 

1699 


000001 




X*X*1 



1696 





ittttttttttttttttttitttxtttttitttttttttstitttttttttttttttittittttttitttt 

lo9b 

1697 





; TEST 

THAT CSR 

BITO CAN BE 

SET ANO CLEARED 

16?9 

007210 

012777 

000001 

172329 

RT 10: 

NOV 

■BIT0.8CSR 

.SET BlTO. 

1699 

007216 

022777 

000001 

172316 


CNP 

BBITO.BCSR 

; TEST THAT BITO IS SET 

1700 

007229 

001902 




8EQ 

15 

; BRANCH IF SET 

1701 


109001 




ERROR 


;CS8 BITO FAILEO TO SET 

1702 

'.'rr*:' 

000907 




8R 

25 

;0R AN AOOITUm BIT ALSO SET 

1703 


092777 

000001 

172302 

15: 

SIC 

IB 1 TO. 8CSR 

; clear bito 

1709 

'.‘it- 4 ' 

005777 

172276 



TST 

acsR 

; TEST THAT BITO IS CLEAR 

1705 


001901 




BEG 

25 

; CSR BITO FAILEO TO CLEAR 

1706 

007296 

109001 




ERROR 


1707 

007250 

109006 



25: 

SCOPE 



1708 



.mmtmmmmmmmtmmttstttttmmtstttmmttmtmm 

1709 

007262 

000002 



RT2: 

2 


.ROUTINE B 2 * 

1710 

007269 

007329 




RT3 


; AOOR Of NEXT ROUTINE. t 

1711 

007266 

000199 




100 . 


; ITERATION COUNT t 

1712 

007260 

007262 




RT2A 


.SCOPE ENTRY POINT. * 

1713 


000002 




X*X+1 



1719 




tittiiiitimmmmmimmtmmmmmimumtmmmma 

1715 

1716 





; TEST 

THAT CSR 

BIT! CAN BE 

SET ANO CLEARED 

1717 

007262 

012777 

000002 

172262 

RT2A: 

NOV 

IBIT1.BCSR 

;SET BIT!. 

1718 

007270 

022777 

000002 

172299 


CNP 

•B1T1.BCSR 

; TEST THAT BIT! IS SET 


SCO 0036 
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1719 

1720 

1721 

1722 

1723 
1729 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 
173H 

1735 

1736 

1737 

1738 

1739 

1790 

1791 

1792 

1793 
1799 

1795 

1796 

1797 

1798 

1799 

1750 

1751 

1752 

1753 
1759 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 
1769 
1766 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 
1779 


007276 

007300 

007302 

007309 

007312 

007316 

007320 

007322 

007329 

007326 

007330 

007332 


007339 

007392 

007360 

007362 

007369 

007366 

007369 

007370 

007372 

007379 

007376 

007900 

007902 

007909 


007906 

007919 

007922 

007929 

007926 

007930 

007936 

007992 

007999 

007916 

007960 

007962 

007969 

007966 


001902 

109001 

000907 

092777 

006777 

001901 

109001 

109006 

000003 

007376 

000199 

007339 

000003 


012777 

022777 

001902 

109001 

000907 

092777 

005777 

001901 

109001 

109006 

000009 

007950 

000199 

007906 

000009 


012777 

022777 

001902 

109001 

000907 

092777 

006777 

001901 

109001 

109006 

000005 

007622 

000199 

007960 

000005 


000002 

172229 


172230 



8EQ 

ERROR 

16 

.BRANCH IF SET 
. CSR 8 1 T 1 FAILED TO SET 


BR 

26 

; OR AN AOOITIONAL BIT ALSO 

16 

BIC 

•BITl.aCSR 

; CLEAR PIT1 

26: 

TST 

BEQ 

ERROR 

SCOPE 

acsR 

26 

; TEST THAT BIT1 IS CLEAR 

; CSR BIT1 FAILED TO CLEAR 


tmmmmttmtmttmitmmmttmmmmmtmmmimt! 


RT3: 

3 

; ROUTINE I 3 


RT9 

; AGO* OF NEXT ROUTINE 


100. 

; ITERATION COUNT 


RT3A 

X*X+1 

.SCOPE ENTRY POINT. 




000009 

000009 


000009 

172152 



; TEST 

THAT CSR 

BIT2 CAN BE SET 

AND CLEARED 

172200 

RT3A: 

MOV 

IBIT2. 6CSR 

.SET BIT! 

172172 


CUP 

•B 1 T2. aCSR 

.TEST THAT BIT2 IS SET 


BEQ 

16 

; BRANCH IE SET 



ERROR 


.CSR BIT2 FAILED TO SET 



8R 

26 

; OR AN AOOITIONAL BIT ALSO SET 

172156 

16: 

BIC 

•BIT2.8CSR 

.CLEAR BIT2 



TST 

8CSR 

.TEST THAT IIT2 IS CLEAR 



•EQ 

ERROR 

26 

.CSR IIT2 FAILED TO CLEAR 


26: 

SCOPE 




RT9: 9 .ROUTIIC 8 9 * 

RTS .BOO* OF NEXT ROUTINE * 

100. ; ITERATION COUNT * 

RT9B ; SCOPE ENTRY POINT. * 

X*X+1 

;mmmitmmmttotmtmmtsttttmimmttummtnitnttu 


000020 

000020 


000020 

172100 


172126 

172120 


172109 


007960 012777 000090 172059 


.TEST 

THAT CSR 

8IT9 CAN BE SET ANO CLEAREO 


RT9A: 

nov 

•BIT9.KSR 

;S£T BIT9. 



CHP 

•BIT9.XSR 

TEST THAT BIT9 IS SET 



•EQ 

If 

; BRANCH IF SET 



ERROR 


.CSR BIT9 FAILEO TO SET 



BR 

26 

.OR AN ADDITIONS. BIT ALSO SET 


16. 

lie 

•BITH.dCSR 

; CLEAR BIT9 



TST 

acs* 

; TEST THAT BIT9 IS CLEAR 



•EQ 

26 




ERROR 


;CSR BIT9 FAILEO TO CLEAR 


26: 

SCOPE 





RT5: 

5 


; ROUTINE • 6 

< i 


RT6 


;AOOR OF NEXT ROUTINE 

t 


100. 


; ITERATION COUNT 

t 


RT5A 

ii- U 1 i 


.SCOPE ENTRY POINT. 

t 


; TEST 

THAT CSR 

BIT5 CAN BE 

SET ANO CLEAREO 


RT5A: 

nov 

•BITS. dCSR 

.'SET BITS. 



SCO 00 37 
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775 007*66 

776 007*7* 

777 007*76 

778 007500 

779 007502 

780 007510 

781 00751* 

782 007516 

783 007520 
78* 

785 007522 

786 00752* 

787 007526 

788 007530 

789 

790 

791 

792 

793 007532 
79* 0075*0 

795 0075*6 

796 007560 

797 007562 

798 00756* 

799 007562 
no 007566 
m 007570 

802 007572 

803 


00757* 
007576 
007600 
807 007602 


809 

810 
811 

812 00760* 

813 007612 
81* 007620 

815 007622 

816 00762* 

817 007626 

818 0076*1 

819 0076*0 

820 0076*2 

821 0076** 

822 

823 0076*6 
82* 007660 

825 007662 

826 00766* 

827 

828 

829 

830 


022777 

001*02 

10*001 

000*07 

0*2777 

006777 

001*01 

10*001 

10*006 

000006 

00757* 

0001 ** 

007532 

000006 


01277? 

022777 

001*02 

10*001 

000*07 

0*2777 

005777 

001*01 

10*001 

10*006 

000007 

0076*6 

00014* 

00760* 

000007 


012777 

022777 

001*02 

10*001 

000*07 

0*2777 

006777 

001*01 

10*001 

10*006 

000010 

007720 

0001 ** 

007666 

000010 
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0000*0 

1720*6 

cnp 

•B 1 T5. aCSR 

.TEST THAT BIT5 IS SET 


BEQ 

IS 

; BRANCH IF SET 



ERROR 


; CSR BIT5 FAILEO TO SET 



BR 

21 

.OR AN AOOITIONAL BIT ALSO SET 

0000*0 

172032 IS. 

BIC 

•B 1 T 5. dCSR 

.CLEAR BIT5 

172026 

TST 

acsR 

.TEST THAT BIT5 IS CLEAR 


BEQ 

ERROR 

2S 

; CSR BIT5 FAILEO TO CLEAR 



2V 

SCOPE 




^xxxtxtmxxxxtxxxxxxxtxxxxxtxxxtxxxxxxxxmxxxxxxxtxxxxxxxxxxxxxxxxxxxx 

RT6 6 ; ROUT IK 16 t 

RT7 ; AOOR Of KXT ROUT IK X 

100. ; ITERATION COUNT t 

RT6A ; SCOPE ENTRY POINT. * 

X*X+1 

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 




; TEST 

THAT CSR 

BITS CAN BE SET 

ANO CLEAREO 

000100 

172002 

RT6A: 

nov 

IB 1 T6. dCSR 

.SET 8IT6. 

000100 

17177* 


CUP 

IB 1 T6. 8CSR 

.TEST THAT BIT6 IS SET 



BEQ 

IS 

; BRANCH IF SET 




ERROR 


;CSR BIT6 FAILEO TO SET 




BR 

2S 

.OR AN ADDITIONAL BIT ALSO SET 

000100 

171760 

IS. 

BIC 

IBIT6. ICSR 

.CLEAR BIT6 

17175* 



TST 

acsR 

.TEST THAT 8IT6 IS CLEAR 



BEQ 

ERROR 

2S 

.CSR BIT6 FAILEO TO CLEAR 




2S: 

SCOPE 




010000 

010000 


010000 

171702 


171730 

171722 


xtxmmxmtmttmtstssmmmtttttstststHxmstxxxtxxxxxxxxxxxxx 

RT7: 7 ;80UTIK 8 7 I 

8T10 .AOOR OF KXT 80UTIK * 

100. . ITERATION COUNT t 

RT7A ; SCOPE ENTRY POINT * 

X«X*1 

.xtxitsmtstxtmxtmttittmtmtmnxtxttxtstxttxxxsxxxxxxxxxxxxxxxx 

; TEST THAT CS8 8IT12 CAN «E SET AND CLEARED 


RT7A: 


171706 IS: 


25 


nov 

CMP 
•EO 
ERROR 
8R 
8IC 
TST 
•EQ 
ERROR 
SCOPE 


•8ITl2.aC$R 
I8IT12. 8CSR 
IS 

2% 

88>Tt2, *SR 

acsR 

2S 


;$ET 8IT12. 

.TEST THAT 8IT12 IS SET 
; I8ANCH if SET 
;CS8 8IT12 FAIlEO TO SET 
.OR AN AOOITIONAI BIT ALSO SET 
; CLEAR 81T12 

; TEST THAT 8IT12 IS CLEAR 
;CSR 9IT12 FAILEO TO CLEAR 


;xxxxxxm*txmxxx*xxx*xxxxmxtitmtttx*mxxxxxTxxTxxxxixxxxxxinxtxx 


RT10: 


ROUTIK I 10 
AOOR Of KXT ROUTIK. 
ITERATION COUNT 
SCOPE ENTRY POINT. 


10 
RT11 
100 . 

RT1QA 
X*X+1 

tututtttnnttnttumtnnnunnttntnnutnttttttttttntttttttt 


.TEST THAT CSR BIT! 3 CAN 8E SET ANO CLEAREO 


SEQ 0038 
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1831 

1832 

1833 
183M 
1835 
1835 

1837 

1838 

1839 
1890 
18H1 

1892 

1893 
1899 

1895 

1896 

1897 

1898 

1899 

1850 

1851 

1852 

1853 
11 
11 
11 

1857 

1858 
1869 
1860 
1861 
1862 
1863 
1869 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 
187* 
1876 

1876 

1877 

1878 

1879 

1880 
1881 
1882 
1883 
11 
11 
1886 


007656 

007669 

007672 

007679 

007676 

007700 

007706 

007712 

007719 

007716 

007720 

007722 

007729 

007726 


007730 

007736 

007792 

007799 

007752 

007759 

007756 

007760 

007766 

007772 

010000 

010002 

010009 

010006 

010010 

010012 

010019 

010016 


012777 

022777 

001902 

109001 

000907 

092777 

005777 

001901 

109001 

109006 

000011 

010010 

000199 

007730 

000011 


012777 

005037 

109005 

017737 

001902 

109011 

000769 

012777 

006077 

017737 

001902 

109011 

000765 

109006 

000012 

010199 

000012 

010020 

000012 


n 3 


SET BIT13. 

TEST THRT BlTlJ IS SET 
BRANCH IT SET 
CSR B IT1 3 FAILED TO SET 
OR AN ADDITIONAL BIT ALSO SET 
CLEAR SITU 

TEST THAT BIT13 IS CLEAR 

CSR B ITU FAILEO TO CLEAR 

rmttmmmmtsssummmmmmmssmsmmtsmsmmm 

RTl 1: 


NACY11 

30A( 1C52) 
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020000 

171656 

RT10A: 

NOV 

I8ITU.XSR 

020000 

171650 


CNP 

IBITU.BCSR 




BEQ 

It 




ERROR 





BR 

2f 

020000 

171639 

If: 

BIC 

IBITU.SCSR 

171630 



TST 

SC SR 




BEQ 

25 




ERROR 




2f . 

SCOPE 



ROUTINE « 11 
AOOR OF NEXT ROUTINE 
ITERATION COUNT 
SCOPE ENTRY POINT 


11 

RTl 2 
100 . 
RT11A 
X*X«1 


.TEST THAT RESET l CLEAR INSTRUCTION CLEAR ALL R/U BITS IN THE CONTROL 




; STATUS REG. 

(CSR) 

SET ALL R/U BITS IN THE CSR 

030167 

171609 

RT11A: 

NOV 

•30167. SCSI 

001570 



CLR 

SRESET 

XNTOAT 

ISSUE RESET 

171572 

001566 


NOV 

SCSR. RCVDAT 

SET CSR CONTENTS 


BEO 

If 

BRANCN IF RESET CLEARED ALL BITS 




ERROR! 


ERROR! RESET 010 NOT CLEAR ALL BITS 




RR 

RT1IA 

LOOP ON ERROR 

C30167 

171559 

If: 

NOV 

•30167. SC SR 

SET ALL R At BITS IN CSR 

171550 



CLR 

SC SR 

CLEAR TIC CSR 

171599 

001566 


NOV 

SCSI. RCVOAT 

OCT & TEST CSR 


BEQ 

25 

60 TO EXIT IF RE SUL T = 0 




ERROR t 

ERROR! CLEAR INST. 010 NOT CLEAR ALL BITS 




M 

If 

LOOP ERROR 



25: 

SCOPE 


SCOPE 


010020 

006037 

001570 


RT12A: 

CLR 

010029 

013777 

001570 

171519 

If: 

NOV 

010032 

017737 

171510 

001566 


NOV 

010090 

023737 

001570 

001566 


CNP 

010096 

001905 




BEQ 

01 0050 

109011 




ERR0R1 

MI- 

032777 

090000 

171122 


BIT 

010060 

001361 




BNE 

010062 

013701 

001570 


25: 

NOV 

010066 

005037 

001570 



CLR 

010072 

005077 

171950 


35: 

CLR 

010076 

017737 

*71999 

001566 


nov 


;smttsmmt<msmmsst8i8st888888sstmtmmstmtsstmtrats» 

RTl 2: 12 ; ROUTINE • 1* * 

RT13 ;A00R OF NEXT ROUTINE t 

10. ? ITERATION COUNT t 

RT12A .SCOPE ENTRY POINT. * 

X»X+t 

tmmiimtmtmuxtimttmtmiiimmmmtmttmtuttmtti 

; TEST THAT A UNARY COIfff CAN 8E LOAOEO INTO A CLEAR BKCSR AND THAT 
; A BINARY COUNT CAN 8C CLEARED 
XNTOAT 

XHTOAT.JRKCSR 
SBKCSR. RCVOAT 
XNTOAT. RCVDAT 
25 


II IT19.SSUR 
If 

XNTOAT. XI 

XNTOAT 

SBKCSR 

SBKCSR. RCVDAT 


LOAD UNARY COUNT INTO BKCSR 

err ufM mtq 

(Ware oata lqaoeo i data read back 

BRANCH IF OATA COMPARES 
ERROR! OATA 000 NIT COMPARE 
SCOPE LOOP? 

BRANCH IF SCOPE LOOP 
SAVE UNARY COUNT 

CLEAR BKCSR ANO TEST 
BKCSR CAN BE CLEARED 


S£Q 0039 


czonaoo omifl lgc tst 

CZONAO. Pll 28-RPR-? 


H 3 


1887 

1888 

1889 

1890 

1891 

1892 

1893 
1899 

1896 
1890 

1897 

1898 

1899 

1900 

1901 

1902 

1903 
1909 
1906 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 
1919 
1916 

1916 

1917 
1 A9 

1919 

1920 

1921 

1922 

1923 
1929 
1926 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 
1939 
1936 

1936 

1937 

1938 

1939 

1990 

1991 

1992 


010109 

010106 

010110 

010116 

010120 

010129 

010132 

010139 

010190 

010192 

010199 

010196 

010150 

010162 


010169 

010160 

010166 

010172 

010176 

010209 

010212 

010220 

010222 

010229 

010232 

010239 

010290 

010296 

010260 

010262 

010269 

010256 

010260 

010262 

010269 


010266 

010279 

010300 

010302 

010310 

010312 

010319 

010316 

010320 


001906 

109011 

032777 

001366 

010137 

023727 

001903 

006237 

000731 

109006 

000013 

010266 

000199 

010169 

000013 


012702 

017737 

009737 

010037 

013777 

017737 

023737 

001901 

109011 

032777 

001906 

006077 

013777 

000763 

006302 

001392 

109006 

000019 

010316 

000012 

010266 

000019 


012777 

006037 

109006 

017737 

001901 

109011 

109006 

000015 

010952 


NACY11 

30A(1052) 28- 

APR-78 13. 

98 PAGE 39 


13: 99 


BEQ 

96 

, BRANCH IF BKCSR CLEARED 



ERRORl 


/ERROR ! BKCSR 010 NOT CU 

090000 

171069 

BIT 

IB 1 T19, BSUR 

; SCOPE LOOP? 


BNE 

3S 

/BRANCH IF SCOPE LOOP 

001570 

9S. 

NOV 

XI , XNTOAT 

; 6ET BINARY COUNT 

001670 

177777 

CHP 

XHTOAT , 1- 1 

/ALL NUMBERS BEEN LOADED 


BEQ 

5S 

; GO TO EXIT 

001570 


INC 

XNTOAT 

; INCREMENT BINARY COUNT 


BR 

IS 

; REPEAT TEST 


5S: 

SCOPE 


; SCOPE 




RT13: 


; ROUTINE • 13 
; AOOR OF NEXT ROUTIIC. 
; ITERATION COUNT 
; SCOPE ENTRY POINT. 


13 

RT19 

100 . 

RT13A 
XaX+1 

itnunnnnttutttttutttttttttttttttntuttttttttttuttttttttttttitu 


; TEST THAT RANDOM NUMBERS CAN BE LOADS 0 INTO THE BKCSR 


010000 


RT13A: 

NOV 

•10000/ X2 

; 6ET RANDOM BCOUNTER 

171362 

002109 

IS: 

NOV 

BBKCSR.PRVCNT 

;6ET PREVIOUS CONTENTS 

003250 



JSR 

7/ 8BRM6EN 

; 60 SET A RAMDON NUMBER 

001570 



NOV 

XO/ XNTOAT 

;6ET RANDOM NUMBER 

001670 

171392 

2S: 

NOV 

XNTOAT/ B8KCSR 

;10A0 SANDHI NUNKR INTO BKCSR 

171336 

001566 


NOV 

JBKCSRz RCVOAT 

;8ET BKCSR DATA 

001570 

001566 


cm 

XNTOAT/ RCVOAT 

; COMPARE BATA 




BEQ 

31 

; BRANCH IF SANE 




ERRORl 


; ERROR! OATA NOT THE SANE 

090000 

170750 

3S: 

BIT 

•8IT19,BSUR 

; SCOPE LOOP? 




BEQ 

91 

/BRANCH IF NO LOOP ON ERROR 

171306 



CLft 

QBKCSR 

i 

002109 

171300 


NOV 

PRVCNT/«KCSR 

/LOAD PREVIOUS CONTENTS 




BR 

21 

; REPEAT TEST 



9S: 

OEC 

X2 





BNE 

IS 

; BRANCH IF NOT 



5S: 

SCOPE 


.SCOPE 


RT19: 19 ; ROUTINE • 19 * 

RT15 ; AOOt OF NEXT ROUTINE t 

10. ; ITERATION COUNT * 

RT19A ; SCORE ENTRY POINT t 

X*X<H 

; TEST THAT RESET CLEARS ALL BREAK STATUS REGISTER BITS 


177777 

001570 

171290 


171262 

001666 


RT19A: 


l-l'MKCSR 

XNTOAT 


NOV 
CLR 

SRESET 
NOV 
8EQ 
ERROR 1 

; mmummmtmmttmmmmmtmmsmmmsmmmtsM 

RT15: 15 ; ROUTINE « 15 * 

RT16 ; ADDR OF NEXT ROUTINE t 


S8KCSR/ RCVOAT 
IS 


SEQ OOMQ 


IZOMAOQ DM1 1A LGC 1ST NACY11 30AU052) 
CZONAD. Pit 28-APR-78 13. H9 


6 H 

28-APR-78 13 M8 PAGE HO 


1993 

1999 

1995 

1996 

1997 

1998 

1999 

1960 

1961 

1962 

1963 
196* 
1966 
1966 
1957 

1968 

1969 

1960 

1961 

1962 

1963 
1969 
1966 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 
1976 
1976 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 
1989 
1986 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 
1999 
1996 

1996 

1997 

1998 


010322 

010329 


010326 

010332 

010990 

010396 

010369 

010366 

010360 

010366 

010370 

010379 

010900 

010909 

0t0912 

010919 

010916 

010929 

010926 

010932 

010990 

010992 

010996 

010960 

010962 

010969 

010966 

010960 


010962 

010966 

010979 

010600 

010609 

010610 

010616 

010629 

010632 

010699 

010636 

010699 

010696 

010662 

010660 

010662 

010669 

010666 


000012 

010326 

000016 


006037 

013777 

017737 

023737 

001906 

109011 

032777 

001361 

013701 

006037 

006077 

017737 

001905 

109011 

032777 

001366 

010137 

023727 

001903 

106237 

000731 

109006 

000016 

010670 

000199 

010962 

000016 


012702 

017737 

009737 

092700 

010037 

013777 

017737 

023737 

001901 

109011 

032777 

001906 

006077 

013777 

000763 

006302 

001390 

109006 


10. ; ITERATION COUNT * 
RT15A ; SCOPE ENTRY POINT. « 
X=X+1 

, smmmmmstmsmtmmttmmmmsmmtmtmmtsmus 


001670 

001670 

171209 

001670 


090000 

001570 

001570 

171199 

171190 


090000 

001570 

001570 

001571 


; TEST THAT A BINARY COUNT CAN BE LOADED INTO A CLC°9 BASREG AND THAT 
; A BINARY COUNT CAN BE CLEAREO. 



RT15A: 

CLR 

XNTOAT 


171210 

If: 

NOV 

XNTOAT, BASREG 

; LOAO BINARY COUNT INTO BASRI 

001566 


NOV 

BASREG, RCVOAT 

; GET BASREG DATA 

001566 


cnp 

XNTOAT/ RCVOAT 

; CONPARE DATA 


BEQ 

2f 

; BRANCH IF OATA COMPARES 



ERR0R1 


,ERR08! OATA DID NOT CONPARE 

170619 


BIT 

IBIT19/BSUR 

; SCOPE LOOP? 


BNE 

If 

; BRANCH IF SCOPE LOOP 


2f 

NOV 

XNTOAT, 7.1 

;SAVE BINARY COUNT 



CLR 

XNTOAT 



35: 

CLR 

BASREG 


001566 


NOV 

88 ASREG, RCVOAT 



BEQ 

9f 

; BRANCH IF BKCSR CLEAREO 



ERR0R1 


; ERROR! BKCSR DID NOT CLEAR 

170556 


BIT 

IB IT19, BUR 

;SCOPE LOOP? 


BNE 

3f 

; BRANCH IF SCOPE LOOP 


91 

NOV 

XI /XNTOAT 

, 6ET BINARY COUNT 

177000 

CNP 

XNTOAT, 11 77000 

; ALL NU4ERS BEEN LOADED 


BEQ 

5f 

; GO TO EXIT 



INCB 

XNTDAT+1 

; INCREMENT BINARY COUNT 



BR 

If 

/REPEAT TEST 


5S: 

SCOPE 


.SCOPE 


010000 

171066 

003250 

000377 

001570 

001570 

171026 

001570 


RT16: 16 ;ROUT'NE « *6 * 

RT17 ; AOOR OF NEXT ROUTIIC. * 

100. ; ITERATION COUNT * 

RT16A , SCOPE ENTRY POINT t 

X*X+1 

; TEST THAT RANOOM NUMBERS CAN BE LOADED INTO THE BASE REGISTER 


002109 


171032 

001566 

001566 


090000 170936 


170776 

002109 


170770 


RT16A: NOV 

•10000, X2 

;6ET RANDOM ICOUNTER 

If: NOV 

BASREG, PR VCNT 

;GET PREVIOUS CONTENTS 

JSR 

7/MRNGEN 

,60 SET A RANDOM NUMBER 

SIC 

•000377, XO 

; CLEAR UNUSEO BITS 

NOV 

XO, XNTOAT 

;6£T RANOON NUMBER 

2f: NOV 

XNTOAT, BASREG 

, LOAD RANDOM NUWER INTO BASREG 

NOV 

BASICS, RCVOAT 

;GCT 8ASRE6 OATA 

CNP 

XNTOAT, RCVOAT 

; COMPARE OATA 

BEQ 

3f 

; BRANCH IF SANE 

ERROR 1 


; ERROR ! OATA NOT THE SANE 

3S. BIT 

«BIT19,3SUR 

; SCOPE LOOP? 

BEQ 

9S 

/BRANCH IF NO LOOP ON ERROR 

CLR 

BASREG 


NOV 

PRVCNT, BASREG 

; LOAO PREVIOUS CONTENTS 

BR 

21 

; REPEAT TEST 

9f: DEC 

X2 

; 10000 NUMBERS BEEN TESTED 

BNE 

If 

; BRANCH IF NOT 

5S: SCOPE 


.SCOPE 


SEQ oom 


CZDNADO DflllA LGC TST ttACYIl 30AU052) 28-APR-78 13 98 

CZOW». Pll 28-APR-78 13 99 


C 9 
PAGE m 


1999 

2000 
2001 
2002 
2003 
2009 
2006 
2006 

2007 

2008 

2009 

2010 
2011 
2012 
2013 
201*1 
2016 
2016 

2017 

2018 

2019 

2020 
2021 
2022 
2023 
2029 
2026 
2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 
2039 
2036 

2036 

2037 


2039 

2090 

2091 


2093 

2099 

2096 

2096 

2097 
209S 
2099 


2061 

2052 

2063 

2069 


010670 

010672 

010679 

010676 


010600 

010609 

010612 

010616 

010620 

010622 

010629 

010626 

010630 

010632 

010639 

010636 

010690 

010699 

010660 

010662 

010669 

010660 

010662 

010669 

010666 

010670 


010672 

010676 

010709 

010706 

010719 

010716 

010720 

010722 

010730 

010739 

010792 

010799 

010796 

010760 

010762 

01G769 

010766 


000017 
010662 
0001 99 
010600 
000017 


013701 

012777 

012700 

060011 

020011 

001006 

090011 

006711 

001011 

006300 

103370 

109006 

010037 

011137 

109011 

000771 

006037 

000771 

000020 

010760 

000012 

010672 

000020 


006037 

052777 

109006 

017737 

001902 

109011 

000912 

062777 

006077 

017737 

001901 

109011 

109006 

000021 

011066 

000199 

010760 

000021 


RT17: 17 ; ROUTINE • 17 

RT20 . ROC* Of NEXT ROUTINE 

100. ; ITERATION COUNT 

RT17A ; SCOPE ENTRY POINT. 

X=X+I 

;ttmtmttmtttttitmmttttmttttttttttmi»mimitmi»iimt 



; TEST 

THAT ALL 

BAR BITS CAN BE 

INOIWIOUALLY SET ANO CLEARED 

001599 

RT17A: 

MOV 

BAR. XI 

;6ET BAR AOORESS 

001900 

170736 

now 

•CRT, MASREG 

, INITIALIZE BASE REGISTER 

000001 


now 

• 1.X0 

;6ET BIT TESTER 


IS 

BIS 

XO, (1 ) 

; SET BAR ■ IT 



CflP 

XO, ( 1 ) 

; TEST THAT ONLY THE PROPER BAR BIT SET 



BNE 

36 

; BRANCH IF ERROR 



BIC 

XO, ( 1 ) 

; CLEAR BAR SIT 



TST 

(1 ) 

; TEST THAT BAR BIT CLEARED 



BNE 

56 

; BRANCH If BAR BIT FAILED TO CLEAR 



RSI 

XO 

; SHIFT BIT TESTER 



BCC 

IS 



26. 

SCOPE 


; SCOPE 

001570 

3S: 

now 

XO,XnTORT 

;6ET UNAT DATA HAS SUPPOSED TO BE 

001666 

9S: 

now 

( t ), RCWOAT 

;6ET UHAT OATA HAS 


ERRORt 


; ERROR! INPROPER BIT OPERATION 



BR 

26 

, 60 TO SCOPE 

001570 

56: 

CLR 

XKTOAT 

;6ET UHAT OATA HAS SUPPOSED TO BE 



■R 

96 



ttimmttmtmmmmmittmtmimtttstttmtitmitmmmt 
RT20: 20 ; ROUTINE • 20 * 

RT21 ;AOOR OF NEXT ROUTIIC X 

10. ; ITERATION COUNT X 

RT20R ; SCOPE ENTRY POINT. X 

X«X*1 

jtmmtitmmrnttiitmtitttttmmmfmttmtmtmimmxtxt 
; TEST THAT RESET CLEARS ALL RAR ilTS 


001570 


RT20A: 

CLR 

XflTOAT 


177777 

170690 


• IS 

V-1.MAR 

;SET ALL BAR BITS 




SRESET 


.RESET 

170632 

001666 


now 

MAR, RCWOAT 

; 6ET BAR DATA 




BEQ 

16 

.BRANCH IF ALL 0*S 




ERROR! 


; ERROR! RESET DIO NOT CLEAR ALL BAR BITS 




BR 

26 

,60 TO EXIT 

177777 

170619 

16: 

BIS 

IM, BOAR 

.SET ALL BIT IN THE BAR 

170610 



CLR 

MAR 

; CLEAR ALL HITS IN THE BAR 

170609 

001666 


now 

MAR, RCWOAT 

;G€T 6 TEST RESULT OF CLEAR OPERATION 




BEQ 

26 

;EXIT IF ALL BITS CLEAREO 




ERR0R1 


; ERROR! ALL BITS 010 NOT CLEAR 



26: 

SCOPE 


; SCOPE 


; tmtmmmmtmtmmmmmttmmmmmtmmxxmmm 
RT21. 21 .ROUTINE I 11 * 

RT22 ; POOR OF NEXT ROUTINE. * 

100. ; ITERATION COUNT * 

RT2IA ; SCOPE ENTRY POINT. t 

X*X+1 

; tmmtmmtsmmttmmmsmmmummmmmmmmm 


SEQ 00*4 


D 9 
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ZDflRO 

Pll 28-RHI-78 

13 99 






2055 









2066 





, TEST 

THAT CSR 

RESPONDS PROPERLY 

TO BYTE COfflANOS 

2057 

010760 

012777 

010100 

170559 

RT21A 

nov 

noioo, jcsr 

LOAD TEST NUNBER IN CSR 

2058 

010766 

105077 

170550 



CLRB 

AC SR 

CLEAR EVEN BYTE 

2059 

010772 

022777 

010000 

170592 


cnp 

• 10000, AC SR 

TEST THAT ONLY EVEN BYTE CLEARCO 

2060 

011000 

001910 




BEQ 

It 


2061 

011002 

012737 

010100 

001570 


now 

• 10100.W1TDAT 

LOAD CORRECT RESULT 

2062 

011010 

017737 

170526 

001566 


nov 

AC SR, RCVDAT 

GET ACTUAL RESULT 

2063 

011016 

109011 




ERRORl 


ERROR! EVEN BYTE INSTRUCTION FAILED 

2069 

011020 

000915 




BR 

2t 

GO TO SCOPE 

2065 

011022 

012777 

010100 

170512 

It. 

nov 

• 10100, ACSR 

LOAD TEST NUNBER IN CSR 

2066 

011030 

105077 

171062 



CLRB 

A. CSR 

TEST THAT ONLY 000 BYTE CLEAREO 

2067 

011039 

001907 




BEQ 

2t 


2068 

011036 

012737 

000100 

001570 


nov 

•00100, WIT DAT 

LOAD CORRECT RESULT 

2069 

011099 

017737 

170972 

001566 


nov 

ACSR, RCVDAT 

LOAD ACTUAL RESULT 

2070 

011052 

109011 




ERRORl 


ERROR! ODO BYTE INSTRUCTION FAILED 

2071 

011059 

109006 



2$: 

SCOPE 


SCOPE 

2072 





jiimmiottmmimmmimitttmtottttttmtmmitmmmt 

2073 

011056 

000022 



RT22: 

22 


.ROUTINE • 22 X 

2079 

011060 

01 1 169 




RT23 


AOOR or NEXT ROUTlfC X 

2075 

011062 

000199 




100. 


ITERATION COUNT X 

2076 

011069 

011066 




RT22R 


SCOPE ENTRY POINT X 

2077 


000022 




X«X«H 



2078 






2079 









2080 





; TEST 

THRT BAR 

RESPONDS PROPERLY 

TO BYTE COfflANOS 

2081 

011066 

012777 

010100 

170950 

RT22R: 

nov 

•10100, ABAR 

;LOAD TEST ftmBER IN BAR 

2082 

011079 

105077 

170999 



CLRB 

A8AR 

.CLEAR EVEN BYTE 

2083 

011100 

022777 

010000 

170936 


CHP 

•10000, ABAR 

.TEST THAT ONLY EVEN BYTE CLEARED 

2089 

011106 

001910 




•EQ 

11 


2085 

011110 

012737 

010100 

001570 


nov 

• 10100. W1T0AT 

;LOAO CORRECT RESULT 

2086 

011116 

017737 

170922 

001566 


nov 

ABAR, RCVDAT 

.GET ACTUAL RESULT 

2087 

011129 

109011 




ERRORl 


.ERROR! EVEN BYTE INSTRUCTION FAILED 

2088 

011126 

000915 




8R 

2t 

,60 TO SCOPE 

2089 

011130 

012777 

010100 

170906 

It: 

nov 

•10100. ABAR 

.LOAD TEST NUHKR IN BAR 

2090 

011136 

105077 

170796 



CLRB 

A. BAR 

.TEST THAT ONLY 000 BYTE CLEARED 

2091 

011192 

001907 




BEQ 

21 

.LOAD CORRECT RESULT 

2092 

011199 

012737 

000100 

001570 


nov 

•00100. JfITORT 

2093 

011152 

017737 

170369 

001566 


nov 

ACSR. RCVDAT 

.LOAD ACTUAL RESULT 

2099 

011160 

109011 




ERRORl 


; ERROR! 000 BYTE INSTRUCTION FAILED 

2095 

011162 

109006 



21: 

SCOPE 


.SCOPE 

2096 





2097 

011169 

000023 



RT23: 

23 


ROUTINE *23 X 

2098 

011166 

011272 




RT29 


AOOR OP NEXT ROUTINE t 

2099 

011170 

000199 




100. 


ITERATION COUNT X 

2100 

011172 

011179 




RT23A 


SCOPE ENTRY POINT. * 

2101 


000023 




X*X+1 



2102 

2103 

2109 









; TEST 

THAT BKCSR RESPONDS PROPERLY TO BYTE COTWANOS 

2105 

011179 

012777 

010100 

170399 

RT23A: 

nov 

• 10100. ABKCSR 

.LOAD TEST NUNBER IN BKCSR 

2106 

011202 

105077 

170390 



CLRB 

ABKCSR 

. CLEAR EVEN BYTE 

2107 

011206 

022777 

010000 

170332 


cnp 

•10000, ABKCSR 

; TEST THAT ONLY EVEN BYTE CLEARED 

2108 

011219 

001910 




BEQ 

If 

; LOAD CORRECT RESUL r 

2109 

011216 

012737 

010100 

001570 


nov 

• 10100, W1TDAT 

2110 

011229 

017737 

170316 

001566 


nov 

ABKCSR, RCVDAT 

; GET ACTUAL RESULT 
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SEQ 0043 


2111 

2112 

2113 

211H 

2115 

2115 

2117 

2118 

2119 

2120 
2121 
2172 

2123 

2124 

2125 

2126 

2127 

2128 


2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 
2161 

2152 

2153 

2154 

2155 

2155 

2157 

2158 

2159 

2150 

2151 

2152 

2153 

2154 

2156 

2155 


011232 

011234 

011235 

011244 

011250 

011252 

011250 

011255 

011270 

01 1272 
011274 
011276 
011300 


104011 

000415 

012777 

105077 

001407 

012737 

017737 

104011 

104006 

000024 

011336 

000144 

011302 

000024 


010100 

170642 

000100 

170256 


170302 


001570 

001566 


ERR0R1 


* ERROR! EVEN BYTE INSTRUCTION FAILEO 

BR 

25 

; GO TO SCOPE 

NOV 

110100* MKCSR 

; LOAD TEST NUMBER IN BKCSR 

CLRB 

a. BKCSR 

* TEST THAT ONLY 000 BYTE CLEARED 

SEQ 

25 


NOV 

•00100, WIT DAT 

; LOAO CORRECT RESULT 

NOV 

SC SR* RCVDAT 

; LOAO ACTUAL RESULT 

ERR0R1 


; ERROR ! 000 BYTE INSTRUCTION FAILEO 

SCOPE 


; SCOPE 


2129 

011302 

012777 

011334 

170246 

RT24A: 

MOV 

•15* 8XHTINT 

2130 

011310 

012777 

010000 

170224 


NOV 

•BIT12*BCSR 

2131 

011316 

052777 

020000 

170216 


BIS 

•B ITU* SC SR 

2132 

011324 

005037 

177776 



CLR 

MPSU 

2133 

011330 

000240 




NOP 


2134 

011332 

104001 




ERROR 


2135 








2136 








2137 

011334 

104006 



15: 

SCOPE 



, mmttitmmmmmmmmmtummtmttmtmmmmm: 

R T 24: 24 ; ROUTINE f 24 J 

RT25 ROCK Of NEXT ROUTINE. 

100. ; ITERATION COUNT 

RT24A ; SCOPE ENTRY POINT. 

X*X-M 

; TCST THAT OVER RUN SIT (CSR SITU) CAUSES AN INTERRUPT UHEN SET 
RT24A: NOV *15. 8XHTINT ;LOAD TRANSMITTER INTERRUPT VECTOR 

NOV SBiTl2,aCSR ;SET TRANSHITTER IE SIT 

BIS IBITU.SCSR ;SET OVER RIM SIT 

CLR MPSU ; ENABLE INTERRUPTS 


011336 

011340 

011342 

011344 


011346 

011364 

011352 

011370 

0M375 

011400 

011402 

011404 

011405 

011414 

011422 

011425 

011434 

011435 

011440 


000025 

011444 

000100 

011346 

000025 


012737 

012777 

012777 

012737 

000240 

104001 

000417 

022525 

013737 

012777 

006077 

012777 

000240 

000401 

104001 


ERROR ; ERROR 'OVERRUN FAILED TO CAUSE AN 

; INTERRUPT/ OR INTERRUPTED TO INCOR- 
RECT AOORESS 

1$: SCOPE ; SCOPE 


ROUTINE « 25 
; AOOR OF NEXT ROUTINE 
; ITERATION COUNT 
; SCOPE ENTRY POINT 


RT2S: 25 ROUTINE « 25 

RT26 ; AOOR OF NEXT ROUTINE 

100 ; ITERATION COUNT 

RT2SA ; SCOPE ENTRY POINT 

X*X41 


000340 

011404 

030000 

000200 


001550 

011440 

170114 

030000 


177776 

170174 

170152 

177776 


177776 

170134 

170106 


; TEST THAT THE 0*111 INTERRUPTS AT THE CORRECT LEVEL 


011442 104006 


RT2SA: HOV 
NOV 
HOV 
HOV 
NOP 
ERROR 
SR 

IS. CHP 

HOV 
HOV 
CLR 
HOV 
NOP 
SR 

2S: ERROR 

35: SCOPE 


•PRTV7* 8BPSU 
• 15.SXHTINT 
•30000* SCSR 
•PRTY4* 8BPSU 


31 

(6)4* <6)4 
XHTLVL.SBPSU 
•25* 8XHTINT 
8CSR 

•30000* SC SR 


; LOAD TRANSNIT TER INTERRUPT VECTOR 

;SET OVER RUN 1 IE SITS 

;ALLOU INTERRUPTS ON LEVEL 5 6 ABOVE 

; ERROR !0H11 FAILEO TO INTERRUPT 
;60 TO EXIT 
; RESET STACK POINTER 
; LOAD ONtt INTERRUPT LEVEL 
; LOAO TRANSMITTER INTERRUPT VECTOR 


;G0 TO EXIT 

; ERROR! 0H11 INTERRUPTED ON HIGHER 
; PRIORITY LEVEL THAN SET FOR 


011444 

011446 


000026 

011462 


RT26: 26 ; ROUTINE • 26 * 

RT27 .ADDRESS OF NEXT TEST. t 


SCO 0099 


czdhado dhua i 

LGC TST 

macyii 

F 9 

300(1052) 28-APR-78 13.98 PAGE 99 


czomad. Pit 

Z8-APR-78 

13: 99 



2167 

011960 

000199 


100. 

; ITERATION COUNT X 

2168 

011952 

011959 


LTSTO 

; SCOPE ENTRY POINT X 

2169 


000026 


X*X+1 


2170 





2171 




; TRANSMITTER LINE TEST LINE 0 


2172 

011969 

009537 

009622 

LTSTO: JSR 5/ XMTTST 

; GO TEST TRANSMITTER LINE 0 

2173 

011960 

000000 


LINEO 


217M 


000001 


Y=Y+1 


21 7S 




, xxxxxxtxxxtx xxxxtxxxxtttxxxxxxxxtxxxtxtxxxxttxtxxxxttxxxxxtxxttxxxtxttxx 

2176 

011962 

000027 


RT27: 27 

; ROUTINE I 27 * 

2177 

011969 

C11500 


RT30 

; ADORE SS OF NEXT TEST. X 

2178 

011966 

000199 


100. 

; ITERATION COUNT X 

2179 

011970 

011972 


LTST1 

; SCOPE ENTRY POINT t 

2180 


000027 


X=X+1 


2181 




xxtxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

2182 




; TRANSMITTER LINE TEST LINE \ 


2183 

011972 

009537 

009622 

LTST1 JSR 5/ XMTTST 

; GO TEST TRANSMITTER LINE 1 

2189 

011976 

000002 


LINE! 


218S 


000002 


Y= Y+l 


2186 




iXXXXXXXXXXXXXXXUXXXXXttXXXXXXXXXXXXXXtXXXXXXtXXXXXXXXXXXXXX txxtxxxxxxtx 

2187 

011500 

000030 


RT30: 30 

; ROUTINE • 30 X 

2188 

011602 

011516 


RT31 

; AOORESS OF NEXT TEST. « 

2189 

011609 

000199 


100. 

; ITERATION COUNT t 

2190 

011606 

011510 


LTST2 

; SCOPE ENTRY POINT X 

2191 


000030 


X*XM 


2192 




tttmttmmimimmtmtmmmimitimimmimmmtttiti 

2193 




; TRANSMITTER LINE TEST LINE 2 


2199 

011510 

009537 

009622 

LTST2: JSR 5. XMTTST 

;60 TEST TRANSMITTER LINE 2 

2196 

011519 

000009 


LINE 2 


2196 


000003 


Y*Y9l 


2197 




xxtxxxtxxsixxsxxxxmsxxxxxxxsxxtxxxxxxxsxxxxxmsxxxxrttxxxxxtxxxxttxxs 

2198 

011516 

000031 


RT31: 31 

; ROUTINE • 31 t 

2199 

011620 

011539 


RT32 

; AOORESS Of ICXT TEST. t 

2200 

011522 

000199 


100. 

.'ITERATION COUNT « 

2201 

011629 

011526 


LTST3 

.SCOPE ENTRY POINT * 

2202 


000031 


X«X41 


2203 




txxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxtxxxxxxxxxxxxxxxtxtxttttttxttttttttttt 

2209 




; TRANSMITTER LINE TEST LINE 3 


2206 

011626 

009537 

009622 

LTST3: JSR 5. XMTTST 

;60 TEST TRANSMITTER LI»C 3 

2206 

011532 

000006 


LINE 3 


2207 


000009 


Y«Y+1 


2208 




.ittmtmmtmmttttttttttttmmmtttttmtttttmttmmmtm 

2209 

011539 

000032 


RT32: 32 

.ROUTINE • 32 X 

2210 

011536 

011552 


RT33 

; AOORESS OF NEXT TEST X 

2211 

011590 

000199 


100. 

. ITERATION COUNT X 

2212 

011592 

011599 


LTST9 

; SCOPE ENTRY POINT X 

2213 


000032 


X«X+1 

, 

2219 




txxxxxxxxxxxxxxxxxtxxxxxxtxxxxxxxxxxtxxxxxxxxxxtxxtxxxxttxtttxtttttttttt 

2216 




; TRANSMITTER LINE TEST LINE 9 


2216 

011599 

009537 

009622 

LTST9: JSR 5/ XMTTST 

;60 TEST TRANSMITTER LI»C 9 

2217 

011560 

000010 


UNE9 


2218 


000005 


Y*Y+1 


2219 





2220 

011562 

000033 


RT33: 33 

; ROUTINE « 33 X 

2221 

011559 

011570 


RT39 

; AOORESS OF NEXT TEST. * 

2222 

011566 

000199 


100. 

; ITERATION COUNT X 


SEQ 0046 


CZOMAOO DM11A LGC TST MACY11 30A(10S2) 
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G 4 
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2223 

2224 

2225 
222b 
2227 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 
2246 

2246 

2247 

2248 

2249 
2260 
2261 
2262 

2253 

2254 
2266 
2266 
2257 
2268 

2259 

2260 
2261 
2262 

2263 

2264 


2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 


011660 


011662 

011666 


011570 

011672 

011574 

011576 


011600 

011604 


011606 

011610 

011612 

011614 


011616 

011622 


011624 
011626 
011630 
01 1632 


011634 

011640 


011642 

011644 

011646 

011650 


011662 

011666 


011660 

011662 

011664 

011666 


011662 

000033 


004537 

000012 

000006 

000034 

011606 

000144 

011600 

000034 


004637 

000014 

000007 

000036 

011624 

000144 

011616 

000036 


004537 

000016 

000010 

000036 

011642 

000144 

011634 

000036 


004537 

000020 

000011 

000037 

011660 

000144 

011662 

000037 


004537 

000022 

000012 

000040 

011676 

000144 

011670 


LTST6 ; SCOPE ENTRY POINT * 

X=X+1 

; TRANSMITTER LINE TEST LINE 5 

LTST5: JSR 5/ XfITTST ;G0 1EST TRANSMITTER LINE 5 

LINE5 
Y*Y-M 

.tmtmmmimtmmtmmttmtitmtmmtmiimmmmim 

RT34: 34 ; ROUTINE I 34 X 

RT35 ; ADORE SS OF NEXT TEST * 

100. ; ITERATION COUNT X 

LTST6 ; SCOPE ENTRY POINT * 

X*X+1 

jimimttmmitmimmmitmimitmmimttmmmiimm 

; TRANSMITTER LINE TEST LINE 6 

LTST6: JSR 5, XMTTST .GO TEST TRANSMITTER LINE 6 

LINE 6 
Y*YM 

jmtmmttmtmtittmiimimmttmtmmmttmmtmsmn 

RT 35: 35 ; ROUTINE « 35 X 

RT36 .ADORESS OF NEXT TEST I 

100. ; ITERATION COUNT X 

LTST7 ; SCOPE ENTRY POINT 1 

X«X+i 

.TRANSMITTER LINE TEST LINE 7 

LTST7: JSR 5. XMTTST .GO TEST TRANSMITTER LUC 7 

LINE? 

Y*Y41 

RT36. 36 .ROUTINE I 36 X 

RT37 .ADDRESS OF NEXT TEST X 

100. ; ITERATION COUNT X 

LTST10 ; SCOPE ENTRY POINT X 

X«X+1 

;immxtmxtmtitititttmm>mixtxtttttttuttttmtmtttimtxm 

; TRANSMITTER LINE TEST LINE 10 

LTST10: JSR 5* XMTTST ; GO TEST TRANSMITTER L I 1C 10 

LINE 10 
Y*Y+1 

;tmtxmxxmmts*txtmtmmmtmttmmttm*xmmmm*txxx 

RT37. 37 ; ROUTINE • 37 X 

RT40 . AODRESS Of NEXT TEST. < 

100. ; ITERATION COUNT X 

LTST11 .SCOPE ENTRY POINT X 

X*X+1 

.tmtstmmmmmtmtmmmxmsttmmxtmttixtxtimxmxxs 

.TRANSMITTER LINE TEST LINE 11 

LTST1 1 : JSR 5. XMTTST ;G0 TEST TRANSMITTER LIIC 11 

LINE11 
Y*Y*1 

ittttttntttttttttttttmtttttttttnttttttttttttttttttttttttttttttttttttt 

RT40: 40 .ROUTINE I 40 X 

RT41 ; ADORESS OF NEXT TEST X 

100. . ITERATION COUNT X 

LTST12 .SCOPE ENTRY POINT X 


004622 


004622 


004622 


004622 


004622 


SEQ 0046 


H 4 
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2279 


000040 


X=X41 



2280 




jiimmmmmummtmtmmmmmimmmtmimmtmi 

2281 




; TRANSMITTER LINE TEST LINE 

12 


2282 

011670 

004537 

004622 

LTST12: JSR 5, XNTTST 


; GO TEST TRANSniTTER LINE 12 

2283 

011b74 

000024 


LINE12 



2284 


000013 


Y*Y4l 



2286 





228b 

01167b 

000041 


RT41: 41 


; ROUTINE « 41 * 

2287 

011700 

011714 


RT42 


; ADORESS OF NEXT TEST. t 

2288 

011702 

000144 


too. 


; ITERATION COUNT t 

2289 

011704 

011706 


LTST13 


. SCOPE ENTRY POINT X 

2290 


000041 


X«X+1 



2291 




tittttttttttttttttttttatttxtttttttttttttttttttttttttttttttttttttttttttt 

2292 




; TRANSMITTER LINE TEST LINE 

13 


2293 

01170b 

004637 

004622 

LTST13: JSR 5, XNTTST 


; GO TEST TRANSNITTER LINE 13 

2294 

011712 

000026 


LINE13 



2296 


000014 


Y«Y+1 



229b 




;tmttttmttt«tttmtmttstitttttttmttuttttmt!!tttmmtmtti>i 

2297 

011714 

000042 


RT42: 42 


; ROUTINE • 42 X 

2298 

011716 

011732 


RT43 


; ADORESS OF NEXT TEST. X 

2299 

011720 

000144 


100. 


; ITERATION COUNT X 

2300 

011722 

011724 


LTST14 


; SCOPE ENTRY POINT X 

2301 


000042 


X«X+1 



2302 




jtttimtmtttttttmotmtmttttttttttmtmtmimmtimutmi 

2303 




; TRANSMITTER LINE TEST LINE 

14 


2304 

011724 

004537 

004622 

LTST14. JSR 5» XNTTST 


;60 TEST TRANSNITTER LINE 14 

2306 

011730 

000030 


LINE14 



230b 


000015 


Y*Y41 



2307 




jttmtuitmmttttmmtimtmimmmimtmummmimm 

2308 

011732 

000043 


RT43: 43 


, ROUTINE • 43 X 

2309 

011734 

011750 


RT44 


; ADDRESS OF NEXT TEST X 

2310 

011736 

000144 


100. 


; ITERATION COUNT X 

2311 

011740 

011742 


LTST15 


; SCOPE ENTRY POINT X 

2312 


000043 


X*X41 



2313 





2314 




; TRANSMITTER LINE TEST LINE 

IS 


2316 

011742 

004637 

004622 

LTST15: JSR 5, XNTTST 


;G0 TEST TRANSNITTER LI* 15 

231b 

01174b 

000032 


LINEI5 



2317 


000016 


Y*Y41 



2318 





2319 

011760 

000044 


RT44: 44 


; ROUTINE • 44 X 

2320 

011752 

011766 


RT45 


; AOORESS OF NEXT TEST. X 

2321 

011754 

000144 


100. 


; ITERATION COUNT X 

2322 

01175b 

011760 


LTST16 


; SCOPE ENTRY POINT X 

2323 


000044 


X«X41 



2324 





2325 




; TRANSMITTER LINE TEST LINE 

16 


232b 

011760 

004637 

004622 

LTST16:JSf 5. XNTTST 


;S0 TEST TRANSNITTER LINE 1b 

2327 

01 176* 

300034 


LINE16 



2328 


000017 


Y*V4t 



2329 




jtttttmitmtitiimmiiimmtmummmmmtttttttmtttim 

2330 

011766 

000045 


RT4S: 46 


; ROUTINE • 46 X 

2331 

011770 

012004 


RT46 


; AOORESS OF NEXT TEST. X 

2332 

011772 

000144 


100. 


; ITERATION COUNT X 

2333 

011774 

011776 


LTST17 


; SCOPE ENTRY POINT X 

2334 


000045 


X*X41 




SEQ 00*47 
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2335 




. xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

23% 




, TRANSMITTER LINE TEST LINE 17 


2337 

011776 

00*537 

00*622 

LTST17. JSR 5. XHTTST 

; GO TEST TRANSMITTER LINE 17 

2338 

012002 

000036 


LINE17 

2339 


000020 


Y= Y+1 


23*0 


000000 


Y=0 


23*1 


000000 


0=0 


23*2 




. xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

23*3 

01200* 

0000*6 


RT*6: *6 

; ROUTINE » *6 X 

23HH 

012006 

012022 


RT*7 

, ADORE SS OF NEXT TEST t 

23*5 

012010 

0001** 


100. 

; ITERATION COUNT % 

23*6 

012012 

01201* 


RCVO 

; SCOPE ENTRY POINT X 

23*7 


0000*6 


X*X+1 


23*8 





23*9 




; RECEIVER LINE TEST LINE 0 


2350 

01201* 

00*537 

00503* 

RCVO: JSR St RCVTST 

; GO TEST RECEIVER LINE 0 

2351 

012020 

000000 


LINEO 


2352 


000001 


Y=Y+1 


2353 




jtttmmmmtittttittitmstmimmmittmtmtmmimitmi 

235* 

012022 

0000*7 


RT*7: *7 

; ROUTINE 1 *7 X 

2355 

01202* 

0120*0 


RT50 

; ADDRESS OF NEXT TEST X 

2356 

012026 

0001** 


too. 

; ITERATION COUNT X 

2357 

012030 

012032 


RCV1 

. SCOPE ENTRY POINT X 

2358 


0000*7 


X*X+1 


2359 




ittnttttttttttttttttutttttttttttttttttttttttttttttttttttttttttttttttttt 

2360 




; RECEIVER LINE TEST LINE 1 


2361 

012032 

00*537 

00503* 

RCV1: JSR 5. RCVTST 

; GO TEST RECEIVER LINE 1 

2362 

012036 

000002 


LINEI 


2363 


000002 


Y*Y+1 


236* 





2365 

0120*0 

000050 


RT50. 50 

.ROUTINE 1 50 X 

2366 

0120*2 

012056 


RTSI 

; ADORE SS OF NEXT TEST X 

2367 

0120** 

0001** 


100 . 

. ITERATION COUNT X 

2368 

0120*6 

012050 


RCV2 

.SCOPE ENTRY POINT X 

2369 


000050 


X=X*1 


2370 




; xxxxxxixxxxxixxxxxxtxxxxxtxixtxxixxtxtixxtxxxxxxxxxxxitxxtxxixxxxttxixxx 

2371 




.RECEIVER LINE TEST LINE 2 


2372 

012050 

00*537 

00503* 

RCV2: JSR 5. RCVTST 

.60 TEST RECEIVER LINE 2 

2373 

01205* 

00000* 


LINE 2 


237* 


000003 


Y*Y+1 


2375 





2376 

012056 

000051 


RT51. 51 

.ROUTINE 1 51 t 

2377 

012060 

01207* 


RT52 

iAOORESS OF NEXT TEST X 

2378 

012062 

0001** 


100. 

. ITERATION COUNT X 

2379 

01206* 

012066 


RCV3 

; SCOPE ENTRY POINT x 

2380 


000051 


X*X+l 


2381 




xxxxixxixixxxixxxixxxmxxxxxixittxxtxmiuxtxxtxixiititxxxxixxxxtxxtu 

2382 




; RECEIVER LINE TEST LINE 3 


2383 

012066 

00*537 

00503* 

RCV3: JSR 5. RCVTST 

.GO TEST RECEIVER LINE 3 

238* 

012072 

000006 


LINE 3 


2385 


00000* 


Y=Y*1 


2386 




.tmmmmmmmtmtttmmmtmtmtmtimmmummm 

2387 

01207* 

000052 


RT52: 52 

.ROUTINE « 52 X 

2388 

012076 

012112 


RT53 

.ADORESS OF NEXT TEST X 

2389 

012100 

0001** 


100. 

; ITERATION COUNT X 

2390 

012102 

01210* 


RCV* 

.SCOPE ENTRY POINT X 


, CZDtWOO Dtlllfl 
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239t 


000062 


X=X*1 




2392 




.tmmmmtmitttttmttttmtmtmttmmmmmmmmnm 


2393 




/ RECEIVER LINE TEST LINE 9 




2399 

012109 

009637 

005039 

RCV9: JSR 5/ RCVTST 

/GO TEST RECEIVER LINE 9 



2396 

012110 

000010 


LINE9 




2396 


000006 


Y= Y+l 




2397 






2398 

012112 

000063 


RT63. 53 

/ROUTINE « 53 

X 


2399 

012119 

012130 


RT59 

; ADDRESS OF NEXT TEST 

X 


2900 

012116 

000199 


100. 

, ITERATION COUNT 

X 


2901 

012120 

012122 


RCV5 

/SCOPE ENTRY POINT 

X 


2902 


000063 


X*X*1 




2H03 




; xxxxxxxxxxxxxxxxxxxxxxxtxxxixxxxxxxxixxxxxxxxxxxxxxxxxxxxxxxxxxxixxxxxxx 


2HOH 




/’RECEIVER LINE TEST LINE 5 




2905 

012122 

009637 

005039 

RCV5: JSR 5/ RCVTST 

,G0 TEST RECEIVER LINE 5 



2906 

012126 

000012 


LINE 5 




2M07 


000006 


Y*Y+1 




2H08 




xxxxxxxxxxxxxxxxxiixixxxxxxxxxxxxxixxxxxxxxxxxxixixtxitxtxxxxsxtxitxtxxt 


2H09 

012130 

000059 


RT59: 59 

/ROUTINE « 59 

X 


2H10 

012132 

012196 


RT55 

; AOORESS OF NEXT TEST 

X 


2911 

012139 

000199 


100. 

; ITERATION COUNT 

X 


2912 

012136 

012190 


RCV6 

/SCOPE ENTRY POINT 

X 


2913 


000069 


X*X91 




2919 




, txxxxxxxxxxxxxxxxxtxxxxxxxxtxxxxxxixxxxxxxxxxxxxxxxxxxxxxxtxtxxtxixxxxxi 


2915 




/RECEIVER LINE TEST LINE 6 




2916 

012190 

009637 

006039 

RCV6: JSR 6. RCVTST 

,60 TEST RECEIVER LUC 6 



2917 

012199 

000019 


LINC6 




2918 


000007 


Y*Y*1 




2H19 




/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


2920 

012196 

000066 


RT55: 55 

/ROUTINE 1 65 

X 


2921 

012160 

012169 


RT66 

/ AOORESS OF 1C XT TEST 

X 


2922 

012162 

000199 


100. 

/ ITERATION COUNT 

X 


2923 

012169 

012166 


RCV7 

; SCOPE ENTRY POINT 

X 


2929 


000065 


X«X+1 




2926 




;XXXXXXXXtXXtXXXXXXtXXXXXXXX8XXXXXt»8XXX8XXXXXX88XXXXXXXXXXXXXXXXlXXXXXXX 


2926 




/RECEIVER LINE TEST LINE 7 




2927 

012166 

009537 

005039 

RCV7: JSR 5/ RCVTST 

• 60 TEST RECEIVER LUC 7 



2928 

012162 

000016 


UNC7 




2929 


000010 


Y*Y*1 




2930 




xxxxxRxxxxxxxxxxxTxxxixxixxxxxxxTXTxxmtxuxxixxiixxxxxxxxxxxxxxxxxixxx 


2931 

012169 

000066 


RT66: 56 

, ROUTINE • 56 

X 


2932 

012166 

012202 


RT57 

/ AOORESS OF ICXT TEST 

X 


2933 

012170 

000199 


100 . 

; ITERATION COUNT 

X 


2939 

012172 

012179 


RCVIO 

; SCOPE ENTRY POINT 

X 


2936 


000066 


X«X+t 




2936 




;xxxxxxttxxmttxxxxxxxxmxxxxtxxxtxttmsttxxxtxxxxxxxxxxxxxxxxxxxxxxxx 


2937 




; RECEIVER LINE TEST LINE 10 




2938 

012179 

009637 

005039 

RCVIO: JSR 5/ RCVTST 

,60 TEST RECEIVER LUC 10 



2939 

012200 

000020 


LINE10 




2990 


000011 


Y«YM 




2991 




;XXXXXXXXtXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXtStX<XXtXXXXXXXXXXXXXXXX!XXXXXXXX 


2992 

012202 

000067 


RT57: 57 

.ROUTINE 1 57 

X 


2993 

012209 

012220 


RT60 

/AOORESS OF NEXT TEST 

X 


2999 

012206 

000199 


100. 

. ITERATION COUNT 

X 


2996 

012210 

012212 


RCV11 

/SCOPE ENTRY POINT 

X 


2996 


000067 


XsX-M 





I CZOtWDG 

Dllllfi 

LGC TST 

nflCYii 

3GA( 1052) 28-OPR-78 13*8 PAGE *9 



SEQ 00*9 

czorwo. Pit 

28- APR- 78 

13: ** 







2**7 




tttmmmmmmmmmmtimmmtttinttmmiimtmtttu 


2HH8 




.RECEIVER LINE 

TEST LINE 11 




2**9 

012212 

00*537 

0U503* 

RCV11. 

JSR 

5. RCVTST 

. GO TEST RECEIVER LINE 11 



2*50 

012216 

000022 



LINE11 





2*51 


000012 



Y=Y+l 





2*52 




.tttttmmtmmtmtittmttttttttmiixttitmttmtttmttsmtittt 


2*53 

012220 

000050 


RT60: 

60 


; ROUTINE I 60 

X 


2*5* 

012222 

012236 



RT61 


; AOORESS OF NEXT TEST 

X 


2H55 

01222* 

0001** 



100. 


; ITERATION COUNT 

X 


2*56 

012225 

012230 



RCV12 


. SCOPE ENTRY POINT 

X 


2*57 


000050 



X*X*1 





2*58 




jmtttttttttittimtttmtttimimitttiitmmmtmmtmumm 


2*59 




; RECEIVER LINE 

TEST LINE 12 




2*50 

012230 

00*537 

00503* 

RCV12: 

JSR 

5. RCVTST 

.GO TEST RECEIVER LINE 12 



2*51 

01223* 

00002* 



LINE12 





2*52 


000013 



Y«Y+1 





2*53 






2*5* 

012235 

000061 


RT61: 

61 


.ROUTINE • 61 

X 


2*55 

0122*0 

01225* 



RT62 


; AOORESS OF »€XT TEST 

X 


2*55 

0122*2 

0001** 



100. 


, ITERATION COUNT 

X 


2*57 

0122** 

0122*6 



RCV13 


.SCOPE ENTRY POINT 

X 


2*58 


000061 



X«X+1 





2*59 




;tttmttm»ttttttttmttt!ttmtim«tmtt!ttttmxumittmimtt! 


2*70 




.RECEIVER LINE 

TEST LINE 13 




2*71 

0122*6 

00*537 

00503* 

RCV13: 

JSR 

5, RCVTST 

;60 TEST RECEIVER LINE 13 



2*72 

012252 

000026 



LINE13 





2*73 


00001* 



Y*Y+I 





2*7* 




. XTxxttmxmxxxxxxTxxtxxxxxxxxxxsxixxxxxsxxxxxxsxttixttxxtxxxxxxxxxxxxx 


2*75 

01225* 

000062 


RT62. 

62 


.ROUTINE • 62 

X 


2*75 

012255 

012272 



RT63 


; AOORESS OF NEXT TEST 

X 

j 

2*77 

012250 

0001** 



100. 


; ITERATION COUNT 

X 

1 

2*78 

012252 

01226* 



RCV1* 


.SCOPE ENTRY POINT 

X 


2*79 


000062 



X*X*I 





2*80 




;tmtsmmstm<tmtmm«tsmmtttm»tmmxxtxxxxxxxxxxxxtxxxx 


2*81 




.RECEIVER LINE 

TEST LINE 1* 




2*82 

01225* 

00*537 

00503* 

RCV1*: 

JSR 

5. RCVTST 

.GO TEST RECEIVER LINE 1* 



2*83 

012270 

000030 



LINE1* 





2*8* 


000015 



Y«Y+1 





2*85 




;stmmmmttmmtmxtttmxtntxxstmtxmxxtmstmtxxtxmxxx 


2*86 

012272 

000063 


RT63: 

63 


; ROUTINE f 53 

X 


2*87 

01227* 

012310 



RT6* 


; AOORESS OF NEXT TEST 

X 


2*88 

012276 

0001** 



100 . 


. ITERATION COUNT 

X 


2*89 

012300 

012302 



RCV15 


. SCOPE ENTRY POINT 

X 


2*90 


000063 



X«X41 





2*91 




;ttxmmtmmttttttmmmmtmmxmttxtttxttxmttttntxm»x 


2*92 




; RECEIVER LINE 

TEST LINE 15 




2*93 

012302 

00*537 

00503* 

RCV15: 

JSR 

5. RCVTST 

.60 TEST RECEIVER LINE 15 



2*9* 

012305 

000032 



L 1 NC IS 





2*95 


000016 



Y*Y+1 





2*96 




;ttmxmtmmitutttmxmtmxmmtmmttttttttttttmttxtttttx 


2*97 

012310 

00006* 


RT6* 

6* 


.ROUTINE • 6* 

X 


2*98 

012312 

012326 



RT65 


; AOORESS OF NEXT TEST 

X 


2*99 

01231* 

0001** 



100. 


. ITERATION COUNT 

X 


2500 

012316 

012320 



RCV16 


; SCOPE ENTRY POINT 

X 


2501 


00005* 



X*X+1 





2502 




tmimmmimixmitxmimtmmmmmtiitixmtmmimm 



SEQ 00 SO 


L 4 
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2503 





.RECEIVER LINE 

TEST LINE 16 


2504 

012320 

004537 

005034 


RCV16 

JSR 

5, RCVTST 

GO TEST RECEIVER LINE 16 

2505 

012324 

000034 




L INE16 



2505 


000017 




Y=Y+1 



2507 





jtttimimmimmmimimtttmtimimmmmmmummi 

2508 

012326 

000065 



RT66: 

65 

/ 

ROUTINE 1 65 t 

2509 

012330 

012346 




RT66 


AOORESS OF NEXT TEST t 

2510 

012332 

000144 




100. 


ITERATION COUNT t 

2511 

012334 

012336 




RCV17 


SCOPE ENTRY POINT X 

2512 


000065 




X*X4l 



2513 





utmmtmmimmimmmtimmmmimmmmmmmm 

2514 





.RECEIVER LINE 

TEST LINE 17 


2515 

012336 

004537 

005034 


RCV17: 

JSR 

5. RCVTST 

GO TEST RECEIVER LINE 17 

2516 

012342 

000036 




LINE17 



2517 


000020 




Y*Y41 



2518 

012344 

000240 




NOP 



2519 





;ttttttt»tttttttttttttittmmttimtmtmto<ifttttitt>ttmftmtii 

2520 

012346 

000066 



RT66- 

66 


ROUTINE • 66 t 

2521 

012350 

012606 




RT67 


AOOR OF NEXT ROUTINE. X 

2522 

012352 

000012 




10. 


ITERATION COUNT X 

2523 

012354 

012362 




RT66A 


SCOPE ENTRY POINT. * 

2524 


000066 




X*X+1 



2S25 





iiumittimtmmtmtmttmmmmtmmimnmmmmtm 

2526 









2527 

012356 

000240 




NOP 



2528 

012360 

000240 




NOP 



2529 





; TEST 

THAT NEX BIT (CSR BIT 14) SETS UHEM THE TRANSMITTER REFERENCES 

2530 





, NON-EX ISTANT 

NENORY. TIC CORRESPONDING BAR BIT CLEARS 

2531 





; AND THAT AN INTERRUPT OCCURS AU LINES ME USED FOR TIC TEST 

2532 

012362 

004737 

004216 


RT66A: 

JSR 

7, TIMER 

60 CALCULATE NACINE TIIC TO TRIMSMIT 

2533 








ONE CNRKACTER 

2534 

012366 

012701 

001400 



nov 

HAT, XI 

GET CAT AOORESS 

2535 

012372 

012702 

160000 



NOV 

1160000, X2 

6ET A NON-EX 1 STANT AOORESS 

2536 

012376 

012703 

000020 



NOV 

•15 ,X3 

6ET COUNTER 

2537 

012402 

010221 



IS 

NOV 

X2,(l) + 

LOAD TIC CURRENT AOORESS 

2538 

012404 

005303 




OEC 

X3 

TABLE WITH NON-EX 1 STANT 

2539 

012406 

001375 




8NE 

It 

ADORE SSES 

2540 

012410 

012701 

000001 



NOV 

•LBITO, XI 

6ET LUC BIT 

2541 

012414 

012777 

012552 

167134 


NOV 

C6f, 8XMTINT 

LOAD TRANSMITTER I NT VECTOR 

2542 

012422 

062777 

000060 

167112 

2S 

BIS 

160. DC SR 

SET EXTENDED AOORESS BITS 

2543 

012430 

050177 

167110 



8 IS 

X1.B8AR 

START TRANSMITTER 

2544 

0124J4 

013737 

004370 

012444 


NOV 

TINE14.3S 

LOAD OELAY TIME TO 

2545 

012442 

104400 




DELAY 


DELAY FOR 1/4TH OF A CHARACTER 

2546 

012444 

[l < » 1 1 l| 



3S 

OPEN 


TO RESPOND TO NEX 

2547 

012446 

017737 

167072 

001566 


NOV 

dBAR.RCVOAT 

6ET BAR OATA 4 TEST 

2548 

012454 

001406 




BEQ 

41 

THAT IT IS CLEAR 

2549 

012466 

005037 

001570 



CLR 

XHTOAT 


2S60 

012462 

104011 




ERROR 1 


ERROR 'BAR BIT 010 NOT CLEAR 

2551 

012464 

ITTmM 

167054 



CLR 

88 AR 


2552 

012470 





BR 

7S 

60 TO SCOPE 

2K3 

012472 

032777 

040000 

167042 

4S: 

BIT 

I8IT14.8CSR 

TEST THAT NEX 8 IT IS SET 

2554 

012600 

001002 




BNE 

St 

BRANCH IF SET 

2565 

012502 

104001 




ERROR 


ERROR! NEX BIT FAILED TO SET 

2556 

012604 

000432 




BR 

7t 

60 TO SCOPE 

2657 

012506 

042777 

100000 

167026 

SI: 

BIC 

IBIT1S.8CSR 

CLEAR TRANSMITTER REAOY FLAG 

2558 

012514 

052777 

010000 

167020 


BIS 

•8IT12, 8CSR 

SET TRANSMITTER IE BIT 


SEQ 0051 
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2559 

012522 

006037 

177776 



CLR 

bipsu 

2550 

012525 

000210 




NOP 


2551 

012630 

012737 

000310 

177776 


NOV 

IPRTY7. 8IPSU 

2552 

012635 

010137 

001570 



NOV 

Xl.XMTOAT 

2553 

012692 

006037 

001556 



CLR 

RCVDAT 

2559 

012695 

101011 




ERRORl 


2555 







74 

2555 

012560 

000110 




BR 

2657 

012652 

006077 

166769 


64: 

CLR 

bcsr 

2658 

012565 

012737 

000310 

177776 


NOV 

IPRTY7. 8BPSW 

2659 

012651 

022525 




CHP 

<6)+. (6 )+ 

2670 

012555 

005301 




ASL 

XI 

2671 

012670 

103319 




BCC 

24 

2672 

012572 

013737 

009356 

012602 

74: 

NOV 

TINE1.84 

2573 

012500 

101900 




OELAY 


2579 

012502 

000000 



84: 

OPEN 


2675 

012501 

101005 




SCOPE 



2599 

2500 

2501 

2502 

2503 
2509 
2505 
2505 

2507 

2508 

2509 
2610 

2511 

2512 

2513 
2619 


012505 

012510 

012512 

012511 


012515 

012521 

012532 

012535 

012551 

012552 

012561 

012565 

012552 

012570 

012572 

012571 

012702 

012701 

012705 

012711 

012715 

012720 

012722 

012721 


000057 

012716 

000012 

012516 

000057 


012777 

012737 

006737 

013737 

062777 

101100 


022777 

001101 

101001 

013737 

101100 


ClR dlPSU .ALLOW INTERRUPTS 

HOP 

NOV IPRTY7. JIPSW , LOCK OUT INTERRUPTS 

NOV XI , XHTOAT , LOAD LINE THAT FAILED 

CLR RCVDAT 

ERR0R1 .ERROR! HEX FAILED TO CAUSE INTERRUPT 

; TYPEOUT SHOWS LINE I THAT FA I LEO 
BR 74 .GO TO SCOPE 

5: CLR dCSR 

NOV IPRTY7. BIPSW ;LOCK OUT INTERRUPTS 

CHP <6)+. (6)+ ; AO JUST STACK PTR 

ASL XI .SHIFT LINE BIT 

BCC 24 .00 NEXT LINE 

4: NOV TINE1.84 ;UAIT FOR TRANSMITTER TO RUN 

OELAY .TO COMPLETION BEFORE 

4: OPEN .EXITIN6 TEST 

SCOPE . SCOPE 

tmmmmsummmsmmmmmmmmsstimmmsssmtt 


RT67: 67 ; ROUTINE I 67 * 

RT70 , ADOR OF NEXT ROUTINE t 

10. ; ITERATION COUNT * 

RT67A ; SCOPE ENTRY POINT. * 

X*X*1 


150000 

012705 

150000 

001370 

000001 


155552 

010050 


165721 

000001 

012561 

165572 


165552 


; TEST THAT HEX BIT SETS IF THE 0N11 TABLES ARE IN NOH-EXISTANT CORE 


RT67A. 


NOV 

NOV 

TST 

NOV 

BIS 

OELAY 

OPEN 

CLR 

CHP 

BEQ 

ERROR 


• 1 50000. MASRE6 
•94. 6BERRVEC 
GB16000Q 
TINE19.1* 
ILBITO.BBAR 


mar 

•BIT19450.BCSR 

24 


012737 

101005 

000070 

013032 

000199 

012725 

000070 


009355 012709 


000005 000009 


SET BASE REGISTER TO NOM*EXISTANT ADRS 

SET T I PE OUT TRAP VECTOR 

CHECK THAT AOORESS TINES OUT 

GET TINE TO TWBtSHlT 179 CHAR 

START TO TtJMSMIT ON LUC 0 

OELAY 1/9 TH OF A CHARACTER 

TlfC 

STOP TRANSNITTER 

TEST THAT ORCY HEX IS SET 


; ERROR! EITICR *X FALED TO SET 
;0t OTHER BITS SET 

24: NOV TINE1.34 ; OELAY 1 CHARACTER TINE TO ALLOW 

DELAY ; TRANSMITTER TO RUN TO 

34: OPEN .C0I*LET10N 

94 NOV BERRVEC42. MERRVEC .RESTORE TINE OUT TRAP 
SCOPE 

RT70: 70 iROUTi* • 70 * 

RT71 ;AOOR OF NEXT ROUTINE t 

100. . ITERATION COUNT t 

RT70A .SCOPE ENTRY POINT * 

X«X+! 

.tttimmmmttttttmmtttmtumtmtmitmmmtmmtmii 

.TEST THAT l#CN THE GO BIT IS CLEAR THAT THE RECEIVERS 00 HOT RECEIVE 
; DATA. EACH LINE IN TURN IS TRANSMITTED 0N.AN0 WHEN TEN CHARACTERS 
.HAVE BEEN TRANSMITTED THE RECEIVER DONE FLA6 IS TESTED. IF IT IS SET 
.AN ERROR IS INOICATEO ON THE LINE OATA WAS RECEIVED ON. 

RT70A CLR LINE ; SET UP TO TRANSMIT 


012726 006037 016730 


S£Q 0052 


czdmaoo omifi lgc tst 

CZDMAD. Pit 28-APR-78 

2515 012732 005 S37 
2515 012735 177755 

2517 012750 006777 

2518 012755 10037S 

2519 012755 052777 

2520 012765 106777 

2521 012750 100010 

2522 012752 013737 

2523 012770 013737 
2525 012775 105011 
2525 013000 000513 
2525 013002 052737 

2527 013010 005337 

2528 013015 103355 

2529 013015 013737 

2530 013025 105500 

2531 013025 000000 

2532 013030 1C5006 

2533 

2535 013032 000071 

2536 013035 013225 

2535 013035 000025 

2537 013050 013052 

2538 000071 

2539 

2550 

2551 

2552 

2553 013052 006000 

2555 013055 010001 

2556 013055 006201 
2555 0130H 012737 

2557 013055 012737 

2558 013055 012777 

2559 013072 010037 

2560 013075 106710 

2561 013100 012737 

2562 013105 012777 

2563 013115 012777 

2565 013122 106777 

2566 013125 100376 
2565 013130 052777 

2567 013135 106777 

2568 013152 100376 

2569 013155 023701 

2550 

2551 013160 001513 

2552 013162 010137 

2553 013165 013737 

2555 013155 105011 

2556 013155 032777 
2555 013175 001323 

2557 013175 000506 

2558 013200 006701 

2559 013202 001503 

2570 013205 000251 


N 5 


MACY11 
13: 55 

30^(10521 

hi 

00 

■ 

PPR-78 13 

58 PPGE 52 



006255 


11. 

JSR 

5, BffXM 1 TD 

.10 CHARACTERS 





-10. 


.ON EPCH LINE 


166576 



Tsr 

iC SR 

.WRIT FOR 10 CHRRPCTERS 




BPL 

. -5 

.TO BE TRPNSMI TTEO 


100000 

166666 


BIC 

•1 00000. iC SR 



166562 



TST8 

9CSR 

.TEST RECEIVER DONE FLRG 





BPL 

21 



001565 

001666 


MOV 

L IN8IT. RCVDAT 

.GET LINE BIT Of RCTIVE LINE 


001565 

001670 


MOV 

LINBIT.JPITOAT 

, THAT ERROR OCCURCO ON 




ERR0R1 


.ERROR! OATA HAS RECEIVED ON L IIC INDICPTEO 




BR 

51 

.GO TO SCOPE 


000002 

016730 

21: 

POD 

12. LINE 

.SET UP NEXT LINE NUMBER 


001665 



PSL 

LINBIT 

. 6ET REAOY TO TRANSMIT ON NEXT LINE 




BCC 

11 

.GO TRANSMIT ON NEXT LINE 


005366 

013026 


MOV 

OELPY 

TIME1, 31 

; DELAY 1 CHARACTER 




31: 

0 


.TIME BEFORE ENTERING NEXT TEST 




51: 

SCOPE 


; SCOPE 




istmmmmtsmmtmmtsmsmsmmmtmmstmtstststtsm 



RT71: 

71 


; ROUTINE • 71 

t 




RT72 


; AOOR OF NEXT ROUTINE 

t 




20. 


; ITERATION COUNT 

t 




RT71A 

X«X+1 


; SCOPE ENTRY POINT. 

t 


.mmmmmmmttmtmmttmstmtttmtssmstmtststsxsms 


; TEST THAT CURRENT ODOR ESS INCREMENTS PROPERLY WHEN A CHAR 
; AC TER IS TRANSN! TYCO. LINE 0 IS USE0 FOR TIC TEST. 


RT71A: 
IS: 


26: 


CLR 

NOV 

INC 


013212 

000005 

MOV 

000350 

0000Q4, 

MOV 

601500 

166566 

MOV 

001500 


MOV 



TSTB 

177776 

001550 

MOV 

000008 

156526 

MOV 

000001 

166522 

MOV 

155515 


TSTB 



•PL 

000200 

156505 

• IC 

155500 


TSTB 



•PL 

001500 


CMP 



•EQ 

001670 


MOV 

001500 

001666 

no¥ 



ERROR 1 

050000 

166006 

BIT 


8NE 

8ft 

TST 

8EQ 

SEC 


80 

80*81 
81 

I31*MEMV£C 
•PRTY7* OKRtVCC+2 


ROKUBBCNT APRS, A FTER TRANSMISSION 
RQ.CURREMT ABg tSS B EFORE TRANSMISSION! 

amo ifemati adoress after transmission 


•CAT* 

80* CAT 

( 0 ) 

•-2.MCT 
•S.DCSR 
111 I TO* 

DCSR 
. -5 

•200.9CSR 

acsi 

, -5 

CAT, 81 
21 

81.XMT0AT 

CAT*RCVOAT 

l6iT15*8SUR 

11 

31 

51 

31 


? ET UP 
Iff 


lie OU T TORO 
■MISTER I 


TRDLE (L IIC 0) 


SET UP 

LOAD CURREN T MCI 
OOES mm EXIST? 

SET CARR. COUNT TO TRANSMIT 1 CHAR 
SET MAIN? 6 m R1TS 
TRAMMIT ON LINE 0 
WRIT FOR TIC RECEIVER 


TO RE CEIVE FIRST OOUtACTER 

■ mmmm mm nmu 

■mcci vsn 


CLEARHE 

writ 

THE SECOND CMRRACTECH 
TEST TNRT CURRENT ADRS 
INCREMENTED PROPERLY 


RECEIVE 


6CT COMPUTEO RESULT 

SET ACTUAL RESULT 

ERROR! CURRENT ADORESS 010 NOT 

INCREMENT PROPERLY 

•RANCH IF SCOPE SWITCH IS SET 

60 TO EXIT 


SCO 0063 


CZDMADO DM11A LGC TST MACY11 30AU052) 28-APR-78 1398 

CZDMAD. P11 28-APR-78 13:99 


e 6 

PAGE 53 


2671 

2672 

2673 

2679 
2676 

2676 

2677 

2678 
2678 

2680 
2681 
2682 
2683 
2689 
2686 
2686 
2687 


2639 

2690 

2691 

2692 

2693 
2699 
2696 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 
2709 
2706 

270 6 

2707 

2708 

2709 

2710 

2711 

2712 

2713 
2719 
2716 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 
2729 

2725 

2726 


013206 

013210 

013212 

013220 

013229 

013226 

013230 

013232 

013239 


006100 

100715 

U12737 

006037 

109006 

000072 

013672 

000029 

013236 

000072 


000006 

000006 


000009 


POL 
Bn i 

36: now IERRVEC+2, dfERRVEC ; RESTORE T IME OUT TRAP 

CLR MERRVEC+2 
SCOPE ; SCOPE 

RT72. 72 ; ROUTINE • 72 * 

RT73 ; AOOR Of NEXT ROUTINE. S 

20. ; ITERATION COUNT * 

RT72A ; SCOPE ENTRY POINT. * 

X*X*1 


; RESTORE T I HE OUT TRAP 


TEST THAT OATA 
LINE 0 IS USED 
AT A TINE. 


CAN 8E TRANSMITTED FROM ALL AVAILABLE CORE 
FOR THE TEST AND ONLY ONE WORD IS TRANSMITTED 


013236 

006000 



RT72A: 

CLR 

013290 

000006 




RESET 

013292 

016037 

013526 

001900 

16: 

MOV 

013250 

012777 

000C05 

166269 


MOV 

013266 

012737 

177777 

001990 


MOV 

013269 

012777 

000001 

166252 


MOV 

013272 

006777 

166299 



TST 

013276 

100376 




BPL 

013300 

106777 

166236 



TST8 

013309 

100376 




BPL 

013306 

006077 

166230 



CLR 

013312 

006037 

001566 



CLR 

013316 

113737 

001600 

001566 


MOVB 

013329 

117037 

013526 

001570 


MOVB 

013332 

093737 

001572 

001570 


BIC 

013390 

123737 

001566 

001570 


CMPB 

013396 

001902 




BEQ 

013350 

109011 




ERR0R1 


013362 

013369 

013360 

013362 

013369 


013366 

013366 

013379 

013376 

013900 

0*.3902 

013906 

013919 

013922 

013930 

013936 

013992 

013999 


000969 

020027 

001902 

006720 

000726 


AREA(0),CAT 
15/ 8CSR 
•-1/MCT 
•LB I TO/ VAR 

acsR 

. -9 

acsR 

. 9 

8CSR 

RCVOAT 

TUMTA8/ RCWOAT 
BAREA(O)/ XMTDAT 
CARMSK, JtITOAT 
RCVOAT, JR1T0AT 

26 


; (CAT)-l IS THE MEMORY LOCATION 


000006 


012737 013519 000009 


006001 

006201 

006720 

110170 

016037 

012777 

012737 

012777 

006777 

100376 

106777 


013626 

013626 

000006 

177777 

000001 

166100 

166072 


001900 

166120 

001990 

166106 



BR 

65 

7.5; 

CMP 

20, 16 


BEQ 

36 


TST 

(01 + 


BR 

16 

36: 


MOV 

•56, 88ERRVEC 


CLR 

21 

96: 

INC 

21 


TST 

<0) + 


MOVB 

21, dAREA(O) 


MOV 

AREA(Q), CAT 


MOV 

•5/6CSR 


MOV 

• -1/WCT 


MOV 

RLBITO. VAR 


TST 

dCSR 


BPL 

. -9 


TSTB 

acsR 


; CLEAR INDEX RE6ISTER 

;LOAD CURRENT AOORESS 

;SET MAI NT 6 60 BITS 

;SET UP CHAR COUNT TO TRANSMIT 1 CHAR 

/TRANSMIT CHAR ON LINE 0 

; WAIT FOR THE TRANSMITTER 

; TO TRANSMIT THE CHARACTER 

; TEST FOR DONE 

; CLEAR ALL FLAGS 

;6ET RECEIVED CHARACTER 
;6ET TRANSMITTED CHARACTER 
; CLEAR NON- TRANSMITTED BITS 
; COMPARE CHARACTERS 
/BRANCH IF VALID COMPARISON 
; ERROR !OATA COMPARISON ERROR 
WERE THE OATA WAS TRANSMITTED FROM 
,60 TO EXIT 

; HAS FIRST 9K BEEN TESTED 
; BRANCH IF IT HAS 
; INCREMENT INOEX 
,60 REPEAT TEST 


;6E6IN TESTING PROVE 9K 

; SET TIME OUT TRAP TO EXIT 

;TEST IF MEMORY TIMES OUT 

; SET UP OATA IDENTIFIER 

/INCREMENT OATA IDENTIFIER 

; INCREMENT INOEX 

; LOAD IDENTIFIER INTO MEMORY 

; LOAD CURRENT AOORESS 

; SET MAINT 6 60 BITS 

; SET UP CHAR COUNT TO TRANSMIT 1 CHAR 

.TRANSMIT OH LINE 0 

;UAIT FOR THE TRANSMITTER TO 

; TRANSMIT THE CHARACTER 

; TEST FOR CHARACTER DONE 


SEQ OOE* 


CZDMAOO omifi L&c TST 
CZOMAD. Pll 28-APR-7 


2727 

2728 

2729 

2730 

2731 

2732 

2733 
2739 

2735 

2736 

2737 

2738 

2739 

2790 

2791 

2792 

2793 
2799 

2795 

2796 

2797 

2798 

2799 

2750 

2751 

2752 

2753 
2759 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 
2769 
2766 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 
2779 

2775 

2776 

2777 

2778 

2779 

2780 
2711 
2782 


013950 

013952 

013956 

013969 

013972 

013500 

013506 

013510 

013512 

013519 

013516 

013529 

013526 

013530 

013532 

013539 

013536 

013590 

013592 

013599 
013596 
013560 
01 3562 
013569 
013556 
013560 
013562 
013669 
013566 
013570 

013572 

013579 

013576 

013600 


100375 

0C5077 

113737 

117037 

093737 

123737 

001713 

109011 

000909 

022626 

012737 

109006 

000000 
005252 
012525 
017777 
020000 
02631 H 
031963 

037977 

090000 

067977 

060000 

077977 

100000 

117977 

120000 

137977 

190000 

173000 

000073 

019006 

000012 

013602 

000073 


MACY11 

30A(1052) 28- 

D 

“D 

20 

1 

00 

98 PAGE 59 


13: 99 


BPL 

. -9 


166069 


CLR 

3CSR 

; GET THE RECEIVED CHARACTER 

001600 

001566 

nova 

TUMTAB. RCVOAT 

013526 

001570 

movb 

dAREA(0).XMT0AT 

; 6ET THE TRANSMITTED CHARACTER 

001572 

001570 

PIC 

CARMSK. XMTDAT 

; CLEAR NON* TRANSMITTED BITS 

001566 

001570 

CMPB 

RCVOAT. XMTDAT 

; COMPARE CHARACTERS 

BEQ 

95 

; BRANCH IF VALID COMPARISON 



ERROR! 


; ERROR I0ATA COMPARISON ERROR NUMBER 



BR 

65 

; IN S/B GIVES MEMORY LOCATION (SEE TABLE 


55: 

P0PSP2 


; RESET THE STACK 

000006 

000009 

MOV 

•6/ MERRVEC 

; RESTORE TIME OUT TRAP 


65: 

SCOPE 


.EXIT TEST 


.MEMORY 

LOCATIONS 

TRANSMITTED FROM TABLE 



AREA: 

0 

; FOR DATA 

IN FIRST 



5252 

;9K SEE THE LISTING 



12525 

; CONTENTS 

OF THESE 

LOCATIONS 


17777 

; IS THE OATA TRANSMITTED 

A8K. 

20000 

; CONTENTS 

=1 ( IF AVAILABLE) 

26319 

il 

9 

2 

*• 


31963 

t 

3 



37977 

II 

/ 

9 

M 

A12K: 

90000 

• 1 

9 

5 



57977 

9 

6 


A16K: 

60000 

. H 

9 

7 



77977 

If 

/ 

10 


A20K 

100000 

It 

9 

11 

•• 


117977 

9 

12 

TC 

A29K. 

120000 

• • 

9 

13 

M 


137977 

N 

9 

19 


A28K: 

190000 

9 

15 



173000 

9 

16 



(BYTE) 


RT73: 73 ; ROUT I • 73 

RT79 ;AOOR OF NEXT ROUTINE 

10. ; ITERATION COUNT 

RT73A ; SCORE ENTRY POINT. 

X«X+1 

iiummumuummutmmnmitmimimuntummmtttt 


; TEST THAT TIC 
THE READY BIT 


013602 

005037 

016730 


RT73A: 

CLR 

LINE 

013606 

012777 

000001 

165726 

15: 

MOV 

«i,acsR 

013619 

/Aim 

001566 



CLR 

RCVOAT 

013620 

013737 

016730 

001570 


MOV 

BILINE. XMTDAT 

013626 

009537 

006296 



JSR 

5.MXMITD 

013632 

177639 




-too. 


013639 

106777 

165702 


25: 

TSTB 

BCSR 

013690 

100375 




BPL 

25 

013692 

092777 

000200 

166672 


SIC 

IBIT7.BCSR 

013660 

W'.’AYtM 

001666 



INC 

RCVOAT 

013669 

023727 

001566 

000199 


CMP 

RCVOAT. 1100 

013662 

001916 




BEQ 

95 

013669 

005777 

165662 



TST 

BCSR 

013670 

100002 




BPL 

35 


TRANSHITTER CAN TRANSHIT 100. CHARACTERS BEFORE SETTING 
(CSR 15). WO CLEARING THE BAR BIT 

; SET THE 60 BIT 

; GET LINE NUMBER (X2) 

; TRANSHIT 100. CHARACTERS 
;0N LUC AS SPECIF IEO BY LINE 
;WAIT FOR THE RECEIVER 
; TO RECEIVE ONE CHARACTER 
; CLEAR CHAR. DONE FLAG 
, INCREMENT CHAR. RCVD COUNT 
; HAVE 100. CHARS. BEEN RCVO 

; TEST REAOY FLAG 
,G0 TEST BAR 


SCO 0055 


CZDMADO 0M11A IGC TST rWCYt 1 30A(10S2) 28-APR-78 13 48 

CZOMAD. Pit 28-APR-78 13.44 


0 

PAGE 55 


2783 

2784 

2785 
2785 

2787 

2788 

2789 

2790 

2791 

2792 

2793 
2799 
2795 
2795 

2797 

2798 

2799 


2801 

28C2 

2803 


2807 


2810 

2811 

2812 

2813 

2814 

2815 
2815 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 
2825 
2827 


2829 

2830 

2831 

2832 

2833 

2834 

2835 
2835 

2837 

2838 


013572 104011 

013574 000443 


ERRORl ; ERROR IREADY BIT SET TOO SOON 

; TYPE OUT SHOUS HON MANY CHARS HERE RECEIVED WHEN READY SET ANO THE LINE « 
BR 8% ; GO TO EXIT 


<X2> 


013575 

013704 

013705 

013714 


013715 

013720 

013725 

013730 

013732 

013735 

013740 

013742 

013744 

013750 

013752 

013750 

01X54 

013755 

013770 

013775 

014002 

014004 

014005 

014010 

014012 

014014 


023777 

001753 

017737 

104011 


000432 

013 7 37 

104400 

oooooo 

005777 

100402 

104001 

000420 

005777 

001407 

017737 

005037 

104011 

000406 

052737 

005337 

103301 

104005 

000074 

014174 

000012 

014016 

000074 


001554 

165632 

004370 

165504 

165574 

165555 

001570 


000002 

001564 


165640 

001570 


31 


CMP 
BEQ 
MOV 
ERR0R1 


ill INBIT, JBAR 
21 

MAR. XMTDAT 


; TEST THAT BAR BIT IS SET 
; BRANCH IF SET 
; SET BAR CONTENTS 
; ERROR! BAR BIT CLEARED TO SOON 
; TYPEOUT SHOWS THE BAR CONTENTS ANO HOW MANY CHARS WERE RECEIVED WHEN BAR FAILED 
.LOCATION L INBIT NAS THE CORRECT BAR CONTENTS. 


013730 41: 

51: 


61: 


001566 


016730 71: 


81 


BR 
MOV 
DELAY 
OPEN 
TST 
BMI 
ERROR 
BR 
TST 
BEQ 
MOV 
CLR 
ERR0R1 
BR 
ADO 
RSL 
BCC 
SCOPE 


81 

T I ME 1 4 / 51 


BCSR 

61 

81 

88 AR 
71 

MAR. RCVDAT 
XMTOAT 

81 

I2.MLIIC 
ML INBIT 
11 


EXIT TEST 
DELAY 1/4 CHARACTER TIME 
TO ALLOW TRANSMITTER TO FINISH 

; TEST READY FLAG (SHOULD BE SET) 
; GO TEST BAR 

.ERROR! REAOY FLAG FAILED TO SET 
; GO TO EXIT 

.TEST THAT BAR BIT IS CLEAR 
.GO TO 71 IF CLEAR 


ERROR* BAR BIT FAILED TO CLEAR 




RT74-. 


ROUTINE « 74 
AOOR OF NEXT ROUT I HE 
ITERATION COUNT 
SCOPE ENTRY POINT 


74 

RT75 

10 . 

RT74A 
X*X+1 


; TEST THAT THE TUMBLE TABLE POINTER INCREMENTS 
; RETURNS TO THE BEGINNING AFTER 64 CHARACTERS 
.LINE 0 IS USED FOR THE TEST 

; CLEAR THE 
.TUMBLE TABLE 


PROPERLY ANO 
NAVE BEEN RECEIVED 


014016 

012701 

001600 


RT74A: 

MOV 

•TUHTAB.X1 

014022 

012702 

000100 



MOV 

•6*. . X2 

014025 

005021 



11 

CLR 

(1 H 

014030 

005302 




DEC 

Xt 

014032 

001375 




BNC 

It 

014084 

012701 

001600 



MOV 

•TUMTA8.X1 

014040 

012777 

000004 

165474 


MOV 

•8 1 T2« BCSR 

014045 


001570 



CLR 

XMTDAT 

014052 

1 'ATM 

00156* 



CLR 

RCVOAT 

014055 

012737 

177677 

001440 


MOV 

l<65. . WCT 

014054 

052777 

000001 

165450 


BIS 

III TO. 8CSR 

014072 

012777 

000001 

1 6544“ 


MOV 

• LB 1 TO. MAR 

014100 

105777 

15S435 


21. 

TSTB 

8CSR 

014104 

1003/5 




BPL 

21 

014105 

042777 

000200 

165426 


BIC 

IBIT7, iCSR 

014114 

006237 

001565 



INC 

RCVOAT 

014120 

005237 

001570 



INC 

XMTDAT 


; SET MAINT BIT L CLEAR GO BIT 


.'SET UP TO TRANSMIT 65 CHARACTERS 
.SET THE GO BIT 
.TRANSMIT ON LINE 0 
.WAIT FOR CHAR DONE FLPG 

.CLEAR CHAR DONE FLAG 
. INCREMENT CHARACTERS 
.RECEIVED COUNT 


, tzortwo onnn 

LGC TST 

hRCYIl 

300(1052) 28-APR-78 13. 

E 5 
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SEO 0056 

czonro. pi i 

28-RPR-78 

13 99 






I 2839 

019129 

005711 



TST 

(1 ) 

; TEST TT ENTRY FOR VALiD 


2890 

01*4126 

100902 



Bn i 

34 

; ORTA ENTRY 


28H1 

01*4130 

109011 



ERRORl 


; ERROR! NO VALID ORTA ENTRY 


28H2 







; TYPEOUT SHOWS 0 OF CHARS RCVO WHEN 

ERROR OCCUREO 

28H3 

011132 

000917 



BR 

94 

; GO TO SCOPE 


2H9 

019139 

005021 


34: 

CLR 

(1 ) + 

; CLEAR TT ENTRY 


29)5 

011136 

023727 

001570 

000100 

cnp 

XNTOAT. #69, 

;HRVE 69. CHARACTERS BEEN RECEIVED 


29)6 

011111 

001355 



8NE 

24 



29)7 

019196 

005777 

165370 


TST 

dCSR 

.WAIT FOR THE LAST CHARACTER 


29)8 

019152 

100375 



BPL 

. -9 

; TO BE TRANSMITTED 


29)9 

019159 

105777 

165362 


TSTB 

acsR 

; TEST FOR DONE 


2850 

019160 

100375 



BPL 

. -9 



2851 

019162 

005737 

001600 


TST 

TUtlTAB 

; TEST FIRST TT ENTRY 


2852 

019166 

100901 



Bm 

94 

;FOR VALID OATA 


2853 

019170 

109001 



ERROR 


; ERROR! POINTER OID HOT RETURN 


285*1 

019172 

109006 


94: 

SCOPE 


; SCOPE 


2855 


000000 



A=0 




2855 


000000 



Y=0 




2857 




jmmttitmtmimmmmmmtttmmmimimmmmmm 

2858 

019179 

000075 


RT75: 

75 


.'ROUTINE f 75 

X 

2869 

019176 

019212 



iT?6 


; ADORE SS OF NEXT TEST 

t 

28^0 

019200 

000199 



100. 


.ITERATION COUNT 

t 

2861 

019202 

019209 



BRKO 


.SCOPE ENTRY POINT 

t 

2862 


000075 



X*X+1 




2863 





286*1 




; BREAK 

TEST ON LINE 0. 



28i-5 

019209 

009537 

005956 

BRKO: 

JSR 

5. BRKTST 

;G0 00 BREAK TEST 


2866 

019210 

000001 



LSI TO 


.ON LINE 0 


2867 


000001 



Y*Y«i 




2868 





2869 

019212 

000076 


RT76: 

76 


.ROUTINE • 76 

t 

2870 

019219 

019230 



RT77 


; AOORESS OF NEXT TEST 

t 

2871 

019216 

000199 



too. 


.'ITERATION COUNT 

X 

2872 

019220 

019222 



BKaI 


.SCOPE ENTRY POINT 

X 

2873 


000076 



X*'A+ 1 




287*) 





2875 




; BREAK 

TEST ON LINE 1. 



2876 

019222 

009537 

00595b 

BRK1: 

JSR 

5, BRKTST 

.60 00 BREAK TEST 


2877 

019226 

000002 



LBIT1 


;0N LINE 1 


2878 


000002 



Y«Y+1 




2879 





2880 

019230 

000077 


RT77: 

77 


; ROUTINE « 77 

X 

2881 

019232 

019296 



RT100 


; AOORESS OF NEXT TEST 

X 

2882 

019239 

000199 



100. 


; ITERATION COUNT 

X 

2883 

019236 

019290 



BRK2 


; SCOPE ENTRY POINT 

* 

288*) 


000077 



X«X*1 




2885 





2886 




; BREAK 

TEST ON LINE 2 



2887 

019290 

009537 

005956 

8RK2: 

JSR 

5# BRKTST 

;G0 00 BREAK TEST 


zm 

019299 

000009 



LBIT2 


;0N LINE 2 


2889 


000003 



Y«Y+1 




2890 





2891 

019296 

000100 


RT100: 

100 


; ROUTINE I 100 

t , 

2892 

019250 

019269 



RT101 


; AOORESS OF NEXT TEST 

X 

2893 

019252 

000199 



100 


; ITERATION COUNT 

* , 

287*4 

019259 

019256 



BRK3 


.SCOPE ENTRY POINT 

* 


SEO 0057 


CZDMAOO Dfll 10 LGC TST MflCYll 300(1052) 
CZDMRO Pll 28- RPR -78 13 99 


Z8-APR-78 1 3: *4 8 


F 5 
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2895 

28% 

2897 


000100 


2907 

2908 

2909 

2910 

2911 

2912 

2913 
29 1H 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 
2929 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 
2939 

2935 

2936 

2937 

2938 

2939 

2990 

2991 

2992 

2993 
2999 

2995 

2996 

2997 

2998 

2999 
2950 


019279 009537 005956 

019300 000020 
000005 


000007 

019336 000109 
019390 019359 
019392 000199 
019399 019396 

000109 


019396 009537 005956 
019352 000200 
000010 

019359 000105 
019356 019372 
019360 000199 
019362 019369 

000105 


X=X*1 

ttmmummtmtttmtttttmtmtmtiitmmmmimmmmi 

BREAK TEST ON LINE 3. 


X 
X 
X 
X 

xmxxuxxxxxxxxxxxxxxxxxxxxixxxxxxxxxixxxxixxxxxixxxnxxxxxxxxxxixxxxx 

; BREAK TEST ON LINE 9. 

BRK9: JSR 5/ 8RKTST ;G0 DO BREAK TEST 

LB I T9 ;0N LINE 9 

Y*Y+1 

;t(smmsmmmxxxtmsumtmmsssmmmuxxtxxxxxxxxxxxxxxxx 


2898 

019256 

009537 005956 

8RK3: JSR 5/ BRKTST 

; GO 00 BREAK TEST 

2899 

019262 

000010 

LBIT3 

; ON LINE 3 

2900 


000009 

Y»Y+1 


2901 



, xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxmtxtxtxxxxxxxxxxi 

2902 

019269 

000101 

RT101: 101 

.ROUTINE ff 101 

2903 

019266 

019302 

RT102 

; ADDRESS Of NEXT TEST 

2909 

019270 

000199 

100. 

; ITERATION COUNT 

2905 

019272 

019279 

BRK9 

.SCOPE ENTRY POINT 

2906 


000101 

X*X+1 



019302 

000102 


RT102: 

102 

ROUTINE « 102 

X 

019309 

019320 



RT103 

AOORESS OF NEXT TEST 

X 

019306 

000199 



100. 

ITERATION COUNT 

X 

019310 

019312 



BRK5 

SCOPE ENTRY POINT 

X 


000102 



X*X+1 






xxxxixxxxxixxxxixxxiixmxixxtxixxxxxxxixxxixxxxiixxxxxxxxxxxtxxxxxixitx 




; BREAK 

TEST ON LINE 5 



019312 

009537 

005956 

BRKS: 

JSR 5. BRKTST 

GO 00 BREAK TEST 


019316 

000090 



LB ITS 

ON LINE 5 



000006 



Y*Y+1 






ixxxxixixxxxxxxiixxxxxmxxxxxxxxxxxxxmisxxxxxxxxxxxxiixxtxixxxxxxxxxx 

019320 

000103 


RT103: 

103 

ROUTIfC • 103 

X 

019322 

019336 



RT109 

AOORESS OF NEXT TEST 

X 

019329 

000199 



100. 

ITERATION COUNT 

X 

019326 

019330 



•RK6 

SCOPE ENTRY POINT 

X 


000103 



X*X+! 






xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxmxtxxxxxxxxxxxxxxxxxxxxxxxxx 




; BREAK 

TEST ON LINE 6. 



019330 

009537 

005956 

BRK6: 

JSR 5. BRKTST 

;60 00 BREAK TEST 


019339 

000100 



LBIT6 

;0N LINE 6 



Y«Y+1 

xxxxxxxtxxxxxmxxxxxxxtxxxxxxxxtmstmsttxxmstxxxxxxxxxxxxxxxxxxxxx 


RT109: 109 

; ROUTINE • 109 

X 

RT105 

; AOORESS OF NEXT TEST 

X 

100 . 

; ITERATION COUNT 

X 

BRK7 

; SCOPE ENTRY POINT 

X 

X«X*1 

xxxtxxxmxxxxxxxxxxxxxxxxxtxxxxxxxxxxtxxxtxxxxtxixxxxixxxxxxtxxxxtxxxxx 

; BREAK TEST ON LINE 7. 

BRK7: JSR 5. BRKTST 

.60 00 BREAK TEST 


LBIT7 

;0N LINE 7 



Y*Y+1 

;xxmmmmmxmx*xxixmmmmmtmtmxxxxtxtxxxxxxxxxxxxxxx 


RT10S: 


105 
RT106 
100 . 
BRKlO 
X*X+1 


ROUTINE • 105 
AOORESS OF NEXT TEST 
ITERATION COUNT 
SCOPE ENTRY POINT 


X 

X 

X 

X 



SEQ 0068 


G 6 

C2DNA00 OflllA LGC TS7 MRCY11 30fi(1052) 28-RPR-78 13.48 PRGE 58 


CZDflRD. 

P11 

28-RPR-73 

13 44 





2961 




jmimtmtmmtmmmmmmutiimmtmitmmtmmim 

2962 




, BREAK 

TEST OH LINE 10. 



2963 

014364 

004537 

005456 

8RK10: 

JSR 5, BRKTST 

GO 00 BREAK TEST 


2964 

014370 

000400 



LBIT10 

OH LINE 10 


2955 


000011 



Y*Y-M 



2966 





2967 

014372 

000106 


RT106: 

106 

ROUTINE I 106 

X 

2968 

014374 

014410 



RT107 

AOORESS OF NEXT TEST 

X 

2959 

014376 

000144 



100. 

ITERATION COUNT 

X 

2960 

014400 

014402 



BRK11 

SCOPE ENTRY POINT 

X 

2961 


000106 



X*X+1 



2962 




jttmtmtttttttttttttmtmtmtttmtmttmummmttmmtm 

2963 




; BRERK 

TEST OH LINE 11. 



2964 

014402 

004537 

005456 

BRKtt: 

JSR 5. BRKTST 

GO 00 BRERK TEST 


2966 

014406 

001000 



LBIT11 

ON LINE 11 


2966 


000012 



Y*Y+1 



2967 




;mtttttttttttmttttmtttttt»tttttttittmttti«ttt!<tmt!ttttttttm 

2968 

014410 

000107 


RT107: 

107 

ROUTINE • 107 

X 

2969 

014412 

014426 



RTtlO 

AOORESS OF NEXT TEST 

X 

2970 

014414 

000144 



100 . 

ITERATION COUNT 

X 

2971 

014416 

014420 



BRK12 

SCOPE ENTRY POINT 

X 

2972 


000107 



X*X+1 



2973 





2974 




; BRERK 

TEST ON LINE 12. 



2975 

014420 

004537 

005456 

BRK12: 

JSR 5, BRKTST 

;G0 00 BRERK TEST 


2976 

014424 

002000 



LBIT12 

ON LINE 12 


2977 


000013 



Y«Y*1 



2978 




jmtmmtmtmmmtmtttftotttttmttttmmtmmmmtmi 

2979 

C14426 

000110 


RT 1 10: 

110 

ROUTINE • 110 

X 

2980 

014430 

014444 



RT111 

AOORESS OF NEXT TEST 

X 

2981 

014432 

000144 



100. 

ITERATION COUNT 

X 

2982 

014434 

014436 



IRK13 

SCOPE ENTRY POINT 

X 

2983 


000110 



X*X4l 



2984 





2985 




; BRERK 

TEST ON LINE 13. 



2986 

014436 

004537 

005456 

BRK13; 

JSR 5# BRKTST 

;60 00 BREAK TEST 


2987 

014442 

004000 



LBIT13 ;0N LINE 13 


2988 


000014 



Y«Y41 



2989 




.tttttttttmtmttmtQtmtmtmttmmtmttttttmtmtmmm! 

2990 

014444 

000111 


RT 111: 

111 

ROUTINE • 111 

X 

2991 

014446 

014462 



RT112 

AOORESS OF NEXT TEST 

X 

2992 

014460 

000144 



100. 

ITERATION COUNT 

X 

2993 

014462 

014454 



BRK14 

SCOPE ENTRY POINT 

X 

2994 


000111 



X*X4l 



2996 





2996 




; BREAK 

TEST ON LINE 14. 



2997 

014464 

004537 

005456 

BRK14: 

JSR 5/ BRKTST 

;G0 DO BREAK TEST 


2998 

014460 

010000 



LBIT14 

;0N LINE 14 


2999 


000015 



Y«Y+1 



3000 





3001 

014462 

000112 


RT112: 

112 

ROUTINE I 112 

X 

3002 

014464 

014500 



RT 1 13 

AOORESS OF NEXT TEST 

X 

3003 

014466 

000144 



100 

.ITERATION COUNT 

X 

3004 

014470 

014472 



BRK15 

.SCOPE ENTRY POINT 

X 

3006 


000112 



x*x+i 



3006 




,xxixxxxxxxxtxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxixxxxxxxxxxxx 


SEQ 0059 
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3007 

3008 

3009 

3010 

3011 

3012 

3013 
301* 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 
302* 

3025 

3026 

3027 

3028 

3029 

3030 
303! 

3032 

3033 
303V 

3035 

3036 

3037 

3038 

3039 
30*0 
30H1 

30*2 

30V 3 
30* H 
30*5 
30*6 
30*7 
30*8 
30*9 

3050 

3051 

3052 

3053 
305* 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 


01**72 00*537 005*56 

01**76 020000 
000016 

01*500 000113 
01*502 01*516 
01*50* 0001** 

01*506 01*510 
000113 


01*510 00*537 005*56 
01*51* 0*0000 
000017 

01*516 00011* 

01*520 01*53* 

01*522 0001** 

01*52* 01*526 

00011 * 


01*526 00*537 005*56 

01*532 100000 
000020 
000000 
000000 

01*53* 000115 
01*536 01*552 
01*5*0 0001** 

01*5*2 01*5** 

000115 


01*5** 00*537 006312 
01*550 000000 
000001 

01*552 000116 
01*55* 01*570 
01*556 0001** 

01*560 01*562 
000116 


01*562 00*537 006312 
01*566 000002 
000002 

01*570 000117 
01*572 01*606 
01*57* 0001** 

01*576 01*600 
000117 


. BREAK. TEST OH 1 1 HE 15 

BRK15: JSR 5/ BRKTST ,60 DO BREAK TEST 

LBIT15 , OH LIHE 15 

Y= Y-M 

jmimtmtmtttutmimmtmttimtmmimmmmmmtm 

RT 1 13: 113 ; ROUTINE • 113 X 

RT1 1* ; ADORE SS OF NEXT TEST X 

100. ; ITERATION COUNT X 

BRK16 ; SCORE ENTRY POINT X 

X=X+1 

,xxxxx8xt«txmsxxxxtxtxtxxttxxxmxttxsxtxsxxmxxxxxxxxxxxxxxxxxxxxxxxx 

; BREAK TEST OH LINE 16. 

BRK16: JSR 5, BRKTST ; GO 00 BREAK TEST 

LBIT16 ;0N LINE 16 

Y= Y+l 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

RT 1 1 * . 11* ; ROUTINE « 11* X 

RT115 ; AOORESS OF NEXT TEST X 

100. ; ITERATION COUNT X 

BRK17 ; SCORE ENTRY ROINT X 

X=X+1 

, xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxRxxtxxxxxxtxxxxxxxxxxxxxRxxxxxxxxxxxxxxxx 

; BREAK TEST ON LINE 17. 

BRK17: JSR 5, BRKTST ; GO 00 BREAK TEST 

LBIT17 ;0N LINE 17 

Y*Y+1 
A*0 
Y*0 

xixxxxxxxuRxxxxxxxxxxmixxxxRxxxxxxxmxxxxxxxxxxxtxxtxtxxxxxixTxxxixxxxTxxxxx 

RT115: 115 ; ROUTINE BUS X 

RTU6 ; AOORESS OF ICXT TEST X 

100. .'ITERATION COUNT X 

DATO .SCORE ENTRY ROINT X 

X*X*1 

; xxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxtxxxxxxxxxxxxxxxsxxxxxxxsxxxxxxxxxxxxxxxxxxxxx 
;OATA TEST 100 CHARACTERS UNEO 
DATO: JSR 5.0ATTST ; 60 RUN DATA TEST 

LINED .ON UNEO 

Y*Y+1 

;xxxxxmxxxxxxxxxxxxxxxxxxxxxxx«xmttttttxxxxmttxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

RT116: 116 ; ROUTINE 1116 X 

RT117 AOORESS OF NEXT TEST X 

100. ; ITERATION COUNT X 

0AT1 ; SCORE ENTRY ROINT X 

X«X*1 

;txxxxxtxxxxxxxx«xxtxxxxxxxxxxxxxxxttxtxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

.DATA TEST 100 CHARACTERS LINEl 
OATt: JSR S.0ATTST ;60 RUN UATA TEST 

LINEl ;0N LINEl 

Y*Y+1 

; xxxxxxxxttxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

RT1 17: 117 ; ROUTINE At 17 X 

RT120 ; AOORESS OF NEXT TEST X 

100. ; ITERATION COUNT X 

DAT2 ; SCORE ENTRY POINT X 

X*X*1 


SEQ 0060 


CZDNADO Omifl LGC TST MACY11 30AU052) 28-APR-78 13 98 
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3063 





3Q6H 




, DATA 

TEST 100 

CHARACTERS LINE2 

3065 

019600 

009537 

006312 

DAT 2: 

JSR 

5, DATTST ; GO RUN DATA TEST 

3066 

019609 

000009 



LINE2 

;0N L INE2 

3067 


000003 



Y=Y+1 


3068 




jmmttttimtmttmmtmttmmmtmmmiitmtmtmtmiimmu 

3069 

019606 

000120 


R T 1 20: 

120 

; ROUTINE 1120 t 

3070 

019610 

019629 



RT121 

; ADDRESS OF NEXT TEST X 

3071 

019612 

000199 



100. 

; ITERATION COUNT X 

3072 

019619 

019616 



DAT3 

; SCOPE ENTRY POINT X 

3073 


000120 



X*X41 


307H 




^xxxxxxxxxxxxxxstxxxtxxtxxxsxtsxxtxtxxsxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

3075 




; DATA 

TEST 100 

CHARACTERS l INE3 

3076 

019616 

009537 

006312 

DAT 3 

JSR 

5/DATTST ;60 SUN OATA TEST 

3077 

019622 

000006 



LINE3 

;0N L INE3 

3078 


000009 



Y=Y*1 


3079 




;ttxxtsittttxttt 2 ttxttxtxtxxmsxtssssxmst 8 xxxxfsxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

3080 

019629 

000121 


RT121: 

121 

/ROUTINE A 121 X 

3081 

019626 

019692 



RT122 

; AOGRESS OF NEXT TEST X 

3082 

019630 

000199 



100. 

; ITERATION COUNT X 

3083 

019632 

019639 



0AT9 

; SCOPE ENTRY POINT X 

308H 


000121 



X*X*1 


3085 




;tttttmmtttttimttttimmttmttmmtttt!itmttmtsmmm«tmm» 

3086 




;DATA 

TEST 100 CHARACTERS LIME 9 

3087 

019639 

009537 

006312 

DAT9; 

JSR 

5/DATTST ;60 iUN OATA TEST 

3ms 

019690 

000010 



LINE9 

;0N LINE9 

3089 


000005 



Y«Y*t 


3090 




, xxxxiixxitxxxxxxxxisttmixxxmxxmxxtxtmxxxtxssxxiiixxxixxxxxxxxxxxxxxtxxix 

3091 

019692 

000122 


RT122; 

122 

; ROUT 1 1C 8122 « 

3092 

019699 

019660 



RT123 

/ADDRESS OF ICXT TEST X 

3093 

019696 

000199 



100 

; iteration COUNT t 

3099 

019650 

019652 



OATS 

; SCOPE ENTRY POINT < 

3095 


000122 



X«X-H 


3096 





3097 




; DATA TEST tOO CHARACTERS l INE5 

3098 

019652 

009537 

006312 

OATS: 

JSR 

6, DATTST ;60 RUN OATA TEST 

3099 

019666 

000012 



UME5 

; ON LINES 

3100 


000006 



Y«Y*1 



3102 

019660 

000123 

RT123: 

123 

; ROUTINE 8123 

t 

3103 

019662 

019676 


RTI29 

; ADORE SS OF ICXT TEST 

x 

3109 

019669 

000199 


100 

; ITERATION COUNT 

X 

3105 

019666 

019670 


DATS 

; SCOPE ENTRY POINT 

X 

3106 


000123 


X*X+1 



3107 



xxmimmmimmtuimtttttmmtfmmttmmttmmtiumxxmxtn 

3108 



; DATA TEST 100 CHARACTERS LINES 



3109 

019670 

009537 006312 

0AT6: 

JSR S/OATTST 

/GO RUN OATA TEST 


3110 

019679 

000019 


LINES 

;0N LINES 


3111 


000007 


Y*Y+1 



3112 



xxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxmmxxxxtxxmtxxxxxxxxxxxxxxxxxxxxttxxttxx 

3113 

019676 

000129 

RT129: 

129 

/ROUTINE 1129 

X 

3119 

019700 

019719 


RT12S 

; ADDRESS OF NEXT TEST 

X 

3115 

019702 

000199 


100. 

; ITERATION COUNT 

X 

3116 

019709 

019706 


DAT7 

; SCOPE ENTRY POINT 

X 

3117 


000129 


X«X-M 




3118 




SCO 0061 


CZDNAOO DM11A LGC TST HACYU 30A<1052) 28-APR-78 

CZDNAO. P11 28-APR-78 13: 99 


J 5 
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3119 

3120 

3121 

3122 

3123 


3110 

3191 

3192 

3193 
3199 

3195 

3196 

3197 

3198 

3199 

3150 

3151 

3152 

3153 
3159 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 
3169 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 
3179 


019706 

019712 


009537 

000016 

000010 


006312 


019792 

019796 


019750 

019752 

019759 

019756 


009537 

000022 

000012 

000127 

019766 

000199 

019760 

000127 


006312 


019776 

015002 


015009 

015006 

015010 

015012 


009537 

000026 

000019 

000131 

015022 

000199 

015019 

000131 


006312 


. DATA TEST 100 CHARACTERS LINE? 

DAT7: JSR 5.0ATTST ; GO RUM DATA TEST 

LINE7 ; OH LINE7 

Y=Y41 

jtttttmttttmttttffotftmmtttmttttttittttmiutmimmmimmm 


3129 

019719 

000125 

RT125: 125 

ROUTINE 1125 

X 

3125 

019716 

019732 

RT126 

AOORESS OF NEXT TEST 

X 

3126 

019720 

000199 

100. 

ITERATION COUNT 

X 

3127 

019722 

019729 

OAT 10 

SCOPE ENTRY POINT 

X 

3128 


000125 

X«X41 



3129 




3130 



; OATA TEST 100 CHARACTERS UNE10 



3131 

019729 

009537 006312 

DAT 10. JSR 5.0ATTST 

GO RUN OATA TEST 


3132 

019730 

000020 

L 1 HE 1 0 

ON LIHE10 


3133 


000011 

Y*Y+1 



3139 



.mmtmmttttmtmmmmmtmtmittmmmmtmintmmimm 

3135 

019732 

000126 

RTl 26: 126 

ROUTINE 1126 

X 

3136 

019739 

019750 

RTl 27 

AOORESS Of NEXT TEST 

X 

3137 

019736 

000199 

100 

ITERATION COUNT 

X 

3138 

019790 

019792 

0AT11 

SCOPE ENTRY POINT 

X 

3139 


000126 

X*X41 




; DATA TEST 100 CHARACTERS UME11 
OATH: JSR 5.DATTST .GO RUN OATA TEST 

LINE1 1 ;0N LINE11 

Y*YH 

RT127. 127 ; ROUTINE *127 * 

RT130 ; AOORCSS Of NEXT TEST X 

100. ; ITERATION COUNT X 

DAT 12 .SCORE ENTRY POINT X 

X«XH 

tmmttmmtitmttmtmmmtsuimitmmmiimuiimmtmumt 




.OATA TEST 100 CHARACTERS LINE 12 



019760 

009537 006312 

0AT12: 

JSR S.DATTST ; 

60 RUN OATA TEST 


019769 

000029 


LINE12 ; 

ON LINE12 



000013 


Y*VH 





;tsttttmtmtmtmtntt8tttmmtmfmtttsttmtmxxxxxxxxxxxxxxxxxxxxxxx 

019766 

000130 

RTl 30: 

130 

ROUTINE RllO 

X 

019770 

015009 


RTl 31 ; 

AOORCSS Of NEXT TEST 

X 

019772 

000199 


100. ; 

ITERATION COUNT 

X 

019779 

019776 


DAT13 J 

SCOPE ENTRY POINT 

X 


000130 


X*XH 




ittmiitnimtmtmmmttntmimtnitmmmumumimutmtttu! 
;OATA TEST 100 CHARACTERS LINE 13 
OAT 13: JSR S.DATTST . 60 RUN OATA TEST 

LINE13 ; ON LINE! 3 

Y*Y+i 

jttmttttttittmmtomttmttmmtttmtummmmmmmmmuu 


RTl 31: 


ROUTINE 1131 
AOORESS Of NEXT TEST 
ITERATION COUNT 
SCOPE ENTRY POINT 


131 
RTl 32 
100 . 

OAT 19 
X*X+1 

ttmmmtttmtmimimmittmmmmmtmmmtmmmmmmi 
; OATA TEST 100 CHARACTERS LINE 19 


SCO 0062 


K 5 

CZDMADO DM1 1A IOC TST NACY11 30A(1052> 28-APR-78 1398 PAGE 62 


ZDMAO. 

PU 

28- APR- 78 

13: 99 






3175 

01501H 

009537 

006312 

DAT19: 

JSR 

5/ DATTST 

GO RUN DATA TEST 


3176 

015020 

000030 



L INC19 


ON LINE19 


3177 


000015 



YsY-M 




3178 





3179 

015022 

000132 


R T 1 32: 

132 


ROUTINE 1132 

X 

3180 

015029 

015090 



RT133 


AOORESS OF NEXT TEST 

X 

3181 

015026 

000199 



100. 


ITERATION COUNT 

X 

3182 

015030 

015032 



DAT1S 


SCOPE ENTRY POINT 

X 

3183 


000132 







3189 




jfmmtttmitttmftmttmttmtfutttttmtitttttmmtmtmtmmm! 

3185 




; DATA 

TEST 100 

CHMACTERS LINE15 



3186 

015032 

009537 

006312 

DAT 15. 

JSR 

5, DATTST 

GO RUN OATA TEST 


3187 

015036 

000032 



LINE15 


ON LINE15 


3188 


000016 



Y«Y41 




3189 




jtmmmmtmtmmmitmttttmmtttmttttttummtmsitimmm 

3190 

015090 

000133 


RT133: 

133 

i 

ROUTINE 1133 

X 

3191 

015092 

015056 



RT139 


AOORESS OF NEXT TEST 

X 

3192 

015099 

000199 



100. 


ITERATION COUNT 

X 

3193 

015096 

015050 



0AT16 


SCOPE ENTRY POINT 

X 

3199 


000133 



X«X*1 




3195 




.ttmtmitmttmmommttmttttmttttmtmittitmsuimtittmnui 

3196 




; DATA 

TEST 100 CHMACTERS LINE16 



3197 

015050 

009537 

006312 

DAT 16: 

JSR 

5* DATTST 

;60 RUN OATA TEST 


3198 

015059 

000039 



LINE16 


;0N L INE16 


3199 


000017 



YxY+1 




3200 





3201 

015056 

000139 


RT139: 

139 


.ROUTINE 8139 

X 

3202 

015060 

015079 



RT135 


AOORESS OF NEXT TEST 

X 

3203 

015062 

000199 



100. 


ITERATION COUNT 

X 

3209 

015069 

015066 



0AT17 


.'SCOPE ENTRY POINT 

X 

3205 


000139 



X*X*I 




3206 




, xtxxmxtxxixtmxsxtxxxxxixxxxxtxutxxxxmxixxxxxxxxxixstxxxtxixixuixxxxxtiti 

3207 




; DATA 

TEST 100 CHMACTERS LINE 17 



3208 

015066 

009537 

00631 2 

DAT 17: 

JSR 

5. DATTST 

;G0 RUN OATA TEST 


3209 

015072 

000036 



L INE17 


.'ON L INE17 


3210 


000020 



Yi-Y+1 




3211 





3212 

015079 

000135 


RT135: 

135 


; ROUTINE t 135 

X 

3213 

015076 

015979 



RT136 


;AOOR OF NEXT ROUTI*. 

X 

3219 

015100 

000199 



100 


; ITERATION COUNT 

X 

3215 

015102 

015109 



RT135A 


.SCOPE ENTRY POINT. 

X 

3216 


000135 



X«X91 




3217 




imitmtttiitmttmmmimttiimtmmiitHtHmmmmttm 

3218 









3219 




; TEST 

THAT OATA (ALL 1 *S> CAN 8E 

TRANSHITTEO ON LINES SmULTANEOUSLY 


3220 




; THE FOLLOWING TESTS ME PERFORHEO. 


3221 




* 

THERE ARE 16 OATA ENTRIES 


3222 




/ 

THERE 

ISN’T A 17TH ENTRY 



3223 




t 

OATA RECEIVED IS CORRECT 



322H 




* 

ONE OATA ENTRY PER LINE 



JZZb 

3226 

015109 

005037 

001600 

RT135A: CLR 

TUHTA8 

.CLEAR THE 


3227 

015110 

009537 

006229 


JSR 

5. SHOVE 

.TUMBLE 


3228 

016119 

001600 



TUHTA8 


.TABLE 


3229 

015116 

001601 



TUHTA8+1 

.(200 


3230 

015120 

000177 



177 


; ENTRIES) 
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3231 

3232 

3233 
3239 
3235 
3235 

3237 

3238 

3239 

3290 

3291 

3292 

3293 
3299 
3296 

3296 

3297 

3298 

3299 

3250 

3251 

3252 

3253 
3259 
3256 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 
3269 
3266 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 
3279 

3275 

3276 

3277 

3278 

3279 


015122 

015130 

015132 

015190 

015196 

015152 

015156 

015160 

015162 

016166 

015170 

015176 

015200 

015202 

015210 

015212 

015216 

015220 

015229 

015230 

015232 

015290 

01SA2 

015299 

015250 


015252 

015256 

015262 

015266 

015270 

015272 

015279 

016276 

015300 

015302 

015309 

015306 

015310 


015312 

015316 

015322 

015329 

015326 

015391 

015J92 

0153M 

015386 

016360 

015162 

015369 

015366 


012737 

005000 

012737 

012777 

010037 

009537 

177777 

005720 

006337 

103367 

013737 

109900 

017737 

001910 

005037 

109011 

005077 

005077 

000520 

032777 

001909 

109001 

005077 

000510 


006077 

012702 

012701 

005302 

100909 

005721 

100779 

109001 

000979 

005721 

001902 

109001 

000970 


012701 

012702 

006302 

100921 

013737 

093737 

113737 

123737 

001902 

109011 

000993 

005721 

000755 


177777 017102 

000001 001569 

000001 169379 

016730 
006296 


001569 

009366 015200 


169336 001566 

001570 

169320 

169312 

020000 169302 


169272 


169269 

000020 

001600 


001600 

000020 


017102 001570 
001572 001570 
001600 001566 
001570 001566 



MOV 

1-1. OUTBUF 


CLR 

XO 


MOV 

ILBITO/UNBIT 


MOV 

«B 1 TO. JCSR 

IS: 

MOV 

XO. LINE 


JSR 

-1 

TST 

5.XMITD 


(0)4 


ASL 

UNBIT 


BCC 

IS 


MOV 

DELAY 

TIME1.2S 

2S 

OPEN 



MOV 

88 AR. RCVOAT 


BEQ 

3S 


CLR 

ERR0R1 

XMTDAT 


CLR 

8BAR 


CLR 

BCSR 


BR 

16S 

3S 

BIT 

IBIT13/XSR 


BEQ 

ERROR 

9S 


CLR 

acsR 


BR 

16S 

, TEST 

THAT THERE ARE 16 VALIO 

9S. 

CLR 

BCSR 


MOV 

116 . X2 


MOV 

ITUHTA8.X1 

5$ 

DEC 

X2 


BMI 

65 


TST 

(1)4 


BMI 

ERROR 

55 


BR 

165 

65: 

TST 

(1)4 


BEQ 

ERROR 

75 


BR 

165 

; TEST 

THAT THE 

ORTA IS CORRECT 

75: 

MOV 

CTUMTAB/Xt 


MOV 

• 16 ,XZ 

85: 

OCC 

92 


BMI 

105 


MOV 

OUTBUF. *1T0AT 


BIC 

(ARMS*. JfITOAT 


MO VS 

TUN TAB. RCVOAT 


CMPB 

XMTOAT, RCVOAT 


BEQ 

ERR0R1 

95 


BR 

165 

95 

TST 

(1)4 


BR 

85 


SEQ 0063 


, LORO CHAR IHTO OUTPUT BUFFER 
. SET RO = LINE 0 
; GET LIHE BIT 
; SET THE 60 BIT 
; GET LINE NUMBER 
; TRANSMIT 1 CHAR. 

; ON EACH LINE 

INCREMENT LINE NUMBER (42) 

; SHIFT LINE BIT TO NEXT LINE 
^BRANCH IF ALL LINES NOT DONE 
;PUT TIME TO TRANSMIT 1 CHAR 
;DELAY 1 
, CHARACTER TIME 
; GET 1 TEST BAR CONTENTS 
/BRANCH IF 0 

/ERROR! BAR NOT CLEAR AFTER ALL 
; L INES FINISHED 

; GO TO EXIT 

/TEST THAT OVER RUN DID NOT SET 
.ERROR! OVER RUN BIT SET 
;G0 TO EXIT 


OATA ENTRIES 
; CLEAR THE CSR 
.GET TT SCAN COUNT 
.GET FIRST TT AOORESS 
; DECREMENT SCAN COUNTER 
; BRANCH IF 16. ENTRIES SCAMCO 
.TEST FOR VALID OATA ENTRY 
;BR**H IF FOUND 
; ERROR! MISIN6 OATA ENTRY 
.60 TO EXIT 

;TEST 17TN ENTRY (SHOULD BE = TO 0) 
; BRANCH IF 0 
; ERROR! EXTRA OATA ENTRY 
;60 TO EXIT 


IN ALL 16 ENTRIES 
;6£T FIST TT AOORESS 
;6ET SCAN COUNT 
; DECREMENT SCAN COUNT 
; BRANCH IF 16 ENTRIES SCANNEO 
;6£T TRANSMITTED DATA 
.CLEAR NON- TRANSMITTED BITS 
;6CT RECEIVED DATA 
; COMPARE OATA 


ERROR INCORRECT OATA 
GO TO EXIT 
INCREMENT TT AOORESS 
TEST NEXT ENTRY 


SCO 0064 


CZDMADO DOHA 

czomao. Pti 


LGC TST 
28-APR-78 


NACY11 
13 MM 


30A(1052) 28-APR-78 13 48 PAGL 


n 

64 


3288 

015370 

01270! 

001600 

101 

MOV 

•TUMTAB.Xl 

3289 

015374 

012702 

000020 


MOV 

116. .7.2 

3290 

015400 

005302 


lit 

DEC 

7,2 

3291 

015402 

100403 



BMI 

121 

3292 

015404 

042721 

160777 


BIC 

• 160777, (1 ) + 

3293 

015410 

000773 



BR 

111 

3294 







3295 




. TEST 

THAT THERE IS AN ENTRY 

32% 

015412 

005037 

001570 

12V 

CLR 

XMTDAT 

3297 

015416 

012701 

000020 


MOV 

• 16. , XI 

3298 

015422 

012702 

000020 

131 

MOV 

•16 ,X2 

3299 

015426 

012700 

001600 


MOV 

• TUMTAB.7.0 

3300 

015432 

023720 

001570 

IMS 

CMP 

XMTOAT, (0) + 

3301 

015435 

001405 



BEQ 

151 

3302 

Q15440 

005302 



DEC 

X2 

3303 

015442 

001373 



BNE 

IMS 

3304 

015444 

005037 

001566 


CLR 

RCVOAT 

3305 

015450 

104011 



ERR0R1 


3305 

016462 

000407 



BR 

161 

3307 

015454 

005301 


151 

DEC 

XI 

3308 

016455 

005701 



TST 

XI 

3309 

015450 

001404 



BEO 

161 

3310 

015452 

052737 

001000 001570 


ADO 

• 1000, XMTDAT 

3311 

015470 

000754 



BR 

131 

3312 

015472 

104005 


161 

SCORE 



, GET FIRST TT AOORESS 
, GET SCAN COUNT 
, DECREMENT SCAN COUNT 
, BRANCH IF ALL LINES TESTED 
.CLEAR ALL BUT LINE NUMBER IN 
, DO NEXT TT AODRESS 

l EACH OF THE 16 LIECS 


TT 


3313 
331% 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 
3325 
3327 
3128 
3329 
3310 
3131 

3332 

3333 

3314 
3115 
1135 
3117 

3138 

3139 
3*0 

3341 

3342 


015474 

015475 

015500 

015602 


015504 

015512 

015515 

015622 

016624 

015625 

015630 

016635 

016644 

015550 


016650 

016662 

015670 

016672 

016500 

015505 

015510 


000135 

015010 

000144 

015504 

000135 


013717 

006037 

004517 

001500 

001501 

000177 

012777 

012777 

106777 

100175 

006077 

104400 

000000 

022777 

001410 

017737 

012717 

104011 

000475 


; TEST FOR LINE ENTRY 
, BRANCH IF FOUNO 
; DECREMENT SCAN COUNT 
, LOOK AT NEXT ENTRY 

.ERROR! NO ENTRY FOUNO FOR THIS LINE 
.60 TO EXIT 

-DECREMENT LINES FOUNO COUNT 

. BRANCH IF ALL LINE TESTED 
. INCREMENT LINE NUMBER 
.GO 00 NEXT LINE 
; SCORE 

.ttitttttmitittmmmtmimttttmttutttiimttmmtmimm 


RT136: 


.ROUTINE • 135 
.ROOK OF NEXT ROUTINE 
; ITERATION COUNT 
; SCORE ENTRY POINT. 


136 
RT137 
100 . 

RT135A 
X*X<M 

ttittmttttttmttittmmttmmtmtttttmitmtmtmimmmi 


.'TEST THAT THE OMtl CAN TRANSMIT A BREAK ON ALL LI ICS SIMULTANEOUSLY 


004366 

015660 

RT136A: 

MOV 

MTlME1.il 

.GET TIME TO TRmSMlT QIC CHARACTER 

001600 



CLR 

TUMTA8 

; CLEAR 

006224 



JSR 

5, BMOVE 

; THE 



TUHTA8 


; TUMBLE 




TUHTABM 

TABLE 




177 



000001 

164004 


MOV 

•8 1 TO. BCSR 

;SET 50 

177777 

164002 


MOV 

•-I.MKCSR 

;$ET BREAK BIT FOR ALL LINES 

163772 


TST8 

Best 

;UAIT FOR THE RECEIVER 



8RL 

. -4 

; TO RECEIVE A BREAK 

163770 



CLR 

MKCSR 

.CLEAR ALL BREAK BITS 



DELAY 


;UAIT ONE CHARACTER 



IV 

OREN 


.TIME 

000201 

163752 

CMR 

BEQ 

MOV 

i201.BC SR 

21 

8CSR. RCVOAT 

;TEST THAT ONLY 60 AND DONE ARE SET 

163744 

001566 


.GET CSR ENTRY 

000201 

001570 


MOV 

1201. XMTDAT 

;GET CORRECT RESULT 


ERROR! 


; ERROR! INCORRECT CSR OATA 




8R 

131 

; EXIT 


; TEST THAT THERE IS 16. VAUO OATA ENTRIES 


SEQ OObb 


CZDMADO DM! 1A LGt TST HACYU 300(1052) 28-APR-78 13 98 


N 5 
PAGE 65 


CZOMAD 

P11 28-APR-78 

3393 

015612 

012701 

3399 

015616 

012702 

3395 

015622 

005721 

mb 

015629 

100902 

3397 

015626 

109001 

3398 

015630 

0009 bb 

3399 

015632 

005302 

3350 

015639 

001372 

3351 



3352 



3353 

015636 

012701 

3359 

015692 

012702 

3355 

015696 

032721 

335b 

015652 

001002 

3357 

015659 

109001 

3358 

015666 

000953 

3359 

015660 

005302 

33bO 

015662 

001371 

3361 



3362 



3363 

015669 

012701 

3369 

015670 

012702 

3365 

015679 

105721 

3366 

015676 

001902 

3367 

015700 

109001 

3368 

015702 

000991 

3369 

015709 

105721 

3370 

015706 

005302 

3371 

015710 

001371 

3372 



3373 



3379 

015712 

012701 

3375 

015716 

012702 

3376 

015722 

092721 

3377 

015726 

005302 

3378 

015730 

001379 

3379 



3380 



3381 

015732 

005009 

3382 

015739 

012703 

3383 

015790 

012702 

3389 

015799 

012701 

3386 

016750 

020921 

3386 

016752 

001910 

3387 

016759 

006302 

3388 

016756 

001379 

3389 

016760 

010937 

3390 

016769 

010937 

3391 

016770 

109011 

3392 

016772 


3393 

016779 

006303 

3399 

016776 

001903 

3396 

016000 

062709 

3396 

016009 

ULLmiM 

3397 

016006 

109006 

3398 




OOlbOO 

25 

MOV 

•TUHTAB,X1 

000020 


MOV 

• 1b. ,X2 


35 

TST 

(1 )+ 



BMI 

ERROR 

95 



BR 

135 


95 

DEC 

X2 



BNE 

35 


• TEST 

THAT THE 

BREAK BIT IS 

OOlbOO 


MOV 

•TUMTAB/X1 

000020 


MOV 

116. ,X2 

090000 

55 

BIT 

IB 1 T19, <1> + 


BNE 

65 



ERROR 

BR 

135 


65 

DEC 

X2 



BNE 

55 


OOlbOO 

000020 


; GET TUMBLE TABLE BASE ADDRESS 
; GET SCAN COUNT 
; TEST FOB VALIO OATA ENTRY 
; BRANCH IF VALID DATA ENTRY FOUNO 
; ERROR! MISSING VALID DATA ENTRY 
;EXIT 

; DECREMENT SCAN COUNT 
; BRANCH IF lb. ENTRIES NOT SCANNED 

IN tb. TUMBLE TABLE ENTRIES 


, BREAK BIT SET 7 
, BRANCH IF SET 
, ERROR! MISSING BREAK BIT 
- EXIT 

• DECREMENT SCAN COUNT 


, TEST THAT THE TUMBLE TABLE DATA BYTE IS ALL OS 



MOV 

ITUMTAB'Xl 


MOV 

116 ,X2 

75 

TSTB 

<1)9 


BEG 

ERROR 

85 


BR 

135 

83 

TSTB 

( 1 )♦ 


OEC 

X2 


BNE 

7* 


; TEST OATA BYTE 
; BRANCH IF 0*$ 

; ERROR! INCORRECT OATA 
;EXIT 

;STEP TABLE POINTER TO NEXT DATA BYTE 


OOlbOO 


MOV 

•TUMTAB,X1 

000020 


MOV 

• 16 • Xt 

160777 

95 

BIC 

• 160777 , (!)♦ 



OEC 

*2 



BNE 

96 


•CLEAR ALL BUT LINE NUMBER 


TEST THAT THERE IS A TUMBLE TABLE ENTRY FOR EACH LIME 

; CLEAR LINE NUMBER 


; TEST FOR L INR ENTRY FOR THIS LINE 
; BRANCH IF FOUNO 


; ERROR ! NO LINE ENTRY FOUND FOR THIS LINE 
;EXIT 

; ALL LINES BEEN FOUNO 
;EXIT IF YES 
•SEARCH FOR 
.•NEXT LINE 
•SCOPE 




CLR 

X9 

000020 


MOV 

• 16 ,23 

000020 

106- 

MOV 

•16, X2 

001600 


MOV 

•TUMTAB,X1 


115 

CMP 

X9,(m 



BEQ 

126 



OEC 

X2 



BNE 

116 

001570 


MOV 

X9/XMT0AT 

001566 


MOV 

X9,RCVDAT 



ERR0R1 




BE 

136 


123: 

DEC 

X3 



BEQ 

136 

001000 


AOD 

•1000, X9 



BR 

106 


1 mtmmmmttmmmmmmtttmmmmmtmmmtmmt 


1 




B 6 
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3399 

016010 

000137 


RT137: 137 


ROUTINE I 137 X 

3HOO 

016012 

016026 


RT190 

* 

ft DOR OF NEXT ROUTINE * 

3901 

016019 

000002 


2 

* 

ITERATION COUNT X 

3902 

016016 

016020 


RT137R 

/ 

SCOPE ENTRY POINT. X 

3903 


000137 


X=X+1 



3909 




umimmmmmmimmmtttmmmumtmmmmmmit 

3906 







3906 




; TEST TO TRANSMIT ON ERCH LINE 

WITH R OELRY SEFORE STRUNG THE 

3907 




. NEXT LINE. 



3908 

016020 

009637 

006602 

RT137R: JSR 5. MDLYttIT 


60 00 TEST. DELAY 

3909 

016029 

000090 


32. 


THIS MUCH BETUEEN LINES 

3910 





3911 

Q16C26 

000190 


RT 190: 190 


ROUTINE « 190 X 

3912 

016030 

016099 


RT191 


mm OF NEXT ROUTINE. X 

3913 

016032 

000002 


2 


ITERATION COUNT X 

3919 

016039 

016036 


RT190R 


SCOPE ENTRY POINT. X 

3915 


000190 


X=X+1 



3916 





3917 







3918 




; TEST TO TRANSMIT ON ERCH LINE 

WITH R DELAY BEFORE STATING THE 

3919 




; NEXT LINE. 



3920 

016036 

009537 

005602 

RT190R: JSR 5.d«DLY#1T 


60 DO TEST. DELAY 

3921 

016092 

000020 


16. 


.THIS MUCH BETUEEN LINES 

3922 





3923 

016099 

000191 


RT191: 191 


ROUTINE • 191 X 

3929 

016096 

016062 


RT192 


AOOR OF NEXT ROUTINE. X 

3925 

016060 

000002 


2 


ITERATION COUNT X 

3926 

016062 

016069 


RT19>R 


SCOPE ENTRY POINT. X , 

3927 


000191 


X=X*1 



3928 





3929 







3930 




; TEST TO TRRNSNIT ON ERCH LINE 

UlTH R OELRY BEFORE STATING THE 

3931 




;NFXT LINE. 



3932 

016069 

009537 

005602 

8T191A: JSR 5,B«DLY»1T 


60 00 TEST. DELAY l 

3933 

016060 

000010 


8. 


THIS MUCH BETUEEN LINES 

3939 





3936 

016062 

000192 


RT192; 192 


ROUTINE R 192 X 

3936 

01.069 

016100 


RT193 


AOOR Of NEXT ROUTINE. X 

»37 

016066 

000002 


2 


ITERATION COUNT X 

3938 

016070 

016072 


RT192R 


SCOPE ENTRY POINT. X 

3939 


000192 


X«X*1 



3990 





3991 

3992 




; TEST TO TRANSMIT ON ERCH LINE 

UlTH A DELAY BEFORE STRTING THE 

3993 




;NEXT LINE. 



3999 

016072 

009637 

005602 

RT192R: JSR 5. MOLYKIT 


;60 DO TEST. OELRY | 

3996 

016076 

000009 


9 


THIS MUCH BETUEEN LINES 

3996 




jttmtmmmmmommmmmttttmtmtmmttmmmmt 

3997 

016100 

000193 


RT193: 193 


ROUTINE « 193 X 

3998 

016102 

016116 


RT199 


.AOOR Of NEXT ROUTINE. X 

3999 

016109 

000002 


2 


; ITERATION COUNT X 

3960 

016106 

016110 


RT193R 


SCOPE ENTRY POINT. X 

3951 


000193 


X*X+1 



3962 





3963 

3969 




; TEST TO TRANSMIT ON ERCH LINE 

UlTH A DELAY BEFORE STATING THE 


C 6 


czdmaoo om m 

LGC TST 
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3955 





;H£XT LINE. 




3956 

016110 

009537 

005602 


RT193A: JSR 

5/ BfDLYXMT 

GO 00 TEST. DELAY 


395? 

016119 

000002 



2 

/ 

THIS MUCH BETWEEN LINES 


3958 






3H69 

016116 

000199 



RT199: 199 

/ 

ROUTINE 1 199 

X 

3960 

016120 

016139 



RT195 

/ 

AOOR OF NEXT ROUTINE. 

t 

3961 

016122 

000002 



2 


ITERATION COUNT 

t 

3962 

016129 

016126 



RT199A 


SCOPE ENTRY POINT 

X 

3963 


000199 



X=X+1 




3969 





ixxtxxtxxxxtxttxnttxtxtxxxxxtxxxxxxxxtttxxxxtxxxtxxtxxxtxtxxxxxxxxttxxxx 

3965 









3966 





; TEST TO TRANSMIT ON EACH LINE WITH fl DELAY BEFORE STATING THE 


3967 





; NEXT LINE. 




3968 

016126 

009537 

005602 


RT199A: JSR 

5/ BfDLYXMT 

GO 00 TEST. DELAY 


3969 

016132 

000001 



1 


THIS MUCH BETWEEN LINES 


3970 





jimtftittttttttttitttttttmtfitmtmtimmmtmmmmiitmt 

3971 

016139 

000195 



RT195: 195 


ROUTINE • 195 

X 

3972 

016136 

016302 



RT196 


AOOR OF NEXT ROUTINE. 

X 

3M73 

016190 

000199 



100. 


ITERATION COUNT 

X 

3979 

016192 

016199 



RT195A 


SCOPE ENTRY POINT. 

X 

3975 


000195 



X*X+1 




3976 





itXXXXXXttXXXXXXtXtXXttttXXXXtUXXtXXtXttXXttXXXXtXXXXttXXXXXtXXXXXXtXXXt 

3977 









3978 





; TEST THAT THE 

DM1 1 WORKS PROPERLY WHEN THE HALF-DUPLEX BIT (CSR BIT 

1) 

3979 





; IS SET. THE TEST TRANSMITS DATA ON LINE 0, AhO ‘BREAKS’ ON LINE 1. 

ONLY 






; THE BREAK SHOULO BE RECEIVEO ON LINE 0 IN THE TUMBLE TABLE. 


3981 

016199 

005037 

001600 


RT195A: CLR 

TUHTAS 

CLEAR THE FIRST TWO 


3982 

016150 

006037 

001602 


CLR 

TUMTAB *2 

TUMBLE TABLE ENTRIES 


3983 

016159 

012737 

017102 

001900 

MOV 

IOUTBUF*CAT 

SET UP TO 


3989 

016152 

012737 

177777 

001990 

MOV 

•-1* WCT 

TRANSMIT 1 CHARACTER 


3985 

016170 

012777 

000007 

163399 

MOV 

• 7. 8CSR 

SET 60* HALF OUPLEX l MAI NT BITS 


3985 

016175 

012777 

000001 

163390 

MOV 

ILBITO, 9BAR 

TRANSMIT 1 CHAP. ON LHNE 0 


3987 

016209 

012777 

000002 

163339 

MOV 

•LB1T1.BBKCSR 

SET BREAK ON LINE 1 


3988 

016212 

105777 

163329 


TSTB 

BCSR 

WAIT FOR THE CHARACTER 


3989 

016216 

100375 



BPL 

. -9 

TO BE RECEIVEO 


3990 

01 6220 

005077 

163322 


CLR 

B8KCSR 

CLEAR THE BREAK BIT ON LINE 1 


3991 









3992 





; TEST THAT ONLY 

THE BREAK WAS RECEIVEO 


3993 

015229 

022737 

191000 

001600 

CMP 

•191000, TUMTAB 

TOST FOR BREAK ENTRY (LINE 1) 


3999 

016232 

001910 



BEQ 

If 



3996 

016239 

013737 

001600 

001566 

MOV 

TUMTAB, PC VOAT 

GET ACTUAL ENTRY 


3995 

016292 

012737 

191000 

001570 

MOV 

•191000,XMT0AT 

GET CORRECT ENTRY 


3997 

016250 

109011 



ERR0R1 


ERROR ! INCORRECT BREAK ENTRY 


3998 

016252 

000907 



BR 

2f 

GO TO EXIT 


3999 

016259 

013737 

001602 

001566 

If: MOV 

TUMTAB +2, RCVOAT 

TEST THAT NEXT ENTRY IS CLEAR 


3500 

016262 

001903 



BEQ 

25 

EXIT IF CORRECT 


3601 

016269 

006037 

001570 


CLR 

XMTOAT 



3602 

016270 

109011 



ERR0R1 


ERROR! SECONO ENTRY WAS NOT CLEAR 


3603 

016272 

005777 

163299 


2f: TST 

BCSR 

WAIT FOR THE TRANSMITTER 


3609 

016276 

100375 



BPL 

. -9 

TO FINISH 


3606 

016300 

109006 



SCOPE 


SCOPE 


3605 






3607 

016302 

000196 



RT196: 196 


; ROUTINE « 196 

« 

3608 

016309 

177777 



RTLAST 


; AOOR OF NEXT ROUTINE. 

* 

3509 

016306 

000199 



100. 


ITERATION COUNT 

t 

3510 

016310 

016312 



RT196A 


SCOPE ENTRY POINT. 

t 


St 0 


SCO 0068 


D 6 
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3511 


000146 




X=Y+1 



3512 






3513 









3514 





.TEST THAT THE 

OHll RESPONDS CORRECTLY TO A RESET 

3515 

016312 

012737 

017102 

001400 

RT146A: 

MOV 

•OUTBUF.CAT 

; SET UP TO TRANSniT 10 

3516 

016320 

012737 

177770 

001440 


now 

1-10, UCT 

; CHARACTERS ON LINE 0 

3517 

016326 

013737 

004366 

016376 


now 

TIME1. 26 

; GET TINE TO TRANSNIT 2 CHARACTERS 

3518 

016339 

013737 

009366 

016442 


now 

TinEl, 66 


3519 

016392 

005037 

001570 



CLR 

Xt1T OAT 


3520 

016396 

012777 

000007 

163166 


now 

•7.BCSR 

;SET NAIHT. , HALF DUPLEX l GO BITS 

3521 

016359 

012777 

000001 

163162 


now 

ILBITO, MAR 

.START TO TRANSNIT ON LINE 0 

3522 

016362 

012777 

000002 

163156 


now 

•L9IT1.MKCSR 

; BREAK ON LINE 1 

3523 

016370 

012709 

000002 



now 

12, X4 


3529 

016379 

109900 



15: 

DELAY 


.WAIT 2 CHARACTER 

3525 

016376 

000000 



21 

OPEN 


; TINES 

3526 

016900 

005309 




DEC 

X4 


3527 

016902 

001379 




BNE 

16 


3528 

016909 

109005 




SRESET 


; RESET 

3529 

016906 

017737 

163130 

001566 


now 

BCSR, RCWDAT 

;GET CSR CONTENTS 

3530 

016919 

001401 




BEQ 

36 

; BRANCH IF 0 

3531 

016916 

109011 




ERR0R1 


; ERROR! CSR DID NOT CLEAR 

3532 

016920 

017737 

163120 

001566 

35. 

now 

BBAR, RCWDAT 

; GET BAR CONTENTS 

3533 

016926 

001402 




BEQ 

46 

; BRANCH IF 0 

3539 

016930 

109011 




ERR0R1 


; ERROR! BAR IS NOT CLEAR 

3535 

016932 

000927 




BR 

55 

.EXIT 

3536 

016939 

012704 

000010 


46: 

now 

18. , 7.4 


3537 

016990 

109400 



56: 

DELAY 


; WAIT 8 MORE CHARACTER TINES 

3538 

016992 

000000 



66: 

OPEN 



3539 

016999 

005309 




DEC 

94 


3590 

016996 

001379 




BNE 

56 


3591 

016950 

017737 

163066 

001566 


now 

BCSR, RCWDAT 

; TEST THAT CSR IS CLEAR 

3592 

016956 

001402 




BEQ 

75 


3593 

016960 

109011 




ERR0R1 


; ERROR! CSR WAS NOT CLEAR 

3599 

016962 

000913 




BR 

95 

; GO TO EXIT 

3595 

016969 

017737 

163054 

00566 

75: 

now 

MAR, RCWDAT 

; TES THAT BAR IS CLEAR 

3596 

016972 

001902 




BEQ 

86 


3597 

016979 

109011 




ERROR! 


; ERROR! BAR DIO NOT CLEAR 

3698 

016976 

000905 




BR 

96 


3599 

016500 

017737 

163042 

001566 

86: 

now 

MKCSR, RCWDAT 

; TEST THAT BKCSR IS CLEAR 

3560 

016506 

001401 




BEQ 

96 


3551 

016510 

104011 




ERROR! 


; ERROR! BKCSR DIO NOT CLEAR 

3552 

016512 

104006 



95 

SCOPE 


; SCOPE 


SEQ 0069 


E 6 


CZDMA00 

dmha i 

LGC TST 

MACYU 

30A(1052) 28-APR-78 13: 

98 PAGE 69 



CZOMAO 

m 

28-RPR-78 

13 99 







3553 





; PRG1- 

TRANSMITTER SCOPE LOOP 



355H 

016519 




PRG1: 



;BEGIN 


3555 

016519 

109000 




TYPE 


;TYPE PROGRAM TITLE 


3556 

016516 

020117 




PRG1M 




3557 

016520 

009737 

016720 



JSR 

7 , PAR AN 

; GO GET USER PARAMETERS 


3558 

016529 

009737 

016772 


PRG1R: 

JSR 

7 . LOOP 

;G0 LOOP TRANSMITTER 


3559 

016530 

005777 

163010 


PRG1B. 

TST 

MAR 

; WAIT FOR ALL LINES TO 

FINISH 

3560 

016539 

001375 




BNE 

PRG1B 

.BRANCH IF NOT DONE 


3561 

016536 

006077 

163000 


PRG1C: 

CLR 

BCSR 

; CLEAR THE CSR 


3562 

016592 

005037 

016570 



CLR 

PRG1D 

; CLEAR DELAY TIME 


3563 

016696 

017737 

162930 

016570 


nov 

aSUR.PRGlD 

; GET DELAY 

/ / +*0 

3569 

016559 

092737 

000377 

016570 


BIC 

• 377/ PRG1D 


/ ; -MO 

3565 

016562 

000337 

016570 



SUAB 

PRG1D 


; / ++D 

3566 

016566 

109900 




DELAY 


; DELAY AS SPECIFIED 


3567 

016570 

000000 



PRSID. 

OPEN 


; BY USER 


3568 

016572 

000759 




BR 

PRG1R 

;LOOP BACK 



3569 

3570 


SEQ 0070 


CZDMADO DM11A LGC TST MACYU 30AC1052) 28-APR-78 13 18 

CZDHAD. PU 28-APR-78 13: HH 

3571 

3572 , PRG2- RECEIVER SCC 

3573 016571 PRG2: 

3571 016571 1 OH 000 TYPE 

3575 0lb57b 020135 PRG2M 

357b OlbbOO 001737 016720 JSR 7A 

3577 016601 001737 016772 PRG2R: JSR 7,1 

3578 OlbbtO 012777 000001 16272H PRG2R: MOV «B I 

3578 016616 005777 162722 PRG2AA: TST Mf 

3580 016622 ©01115 BEQ PR 

3581 016621 105777 162712 TSTB iC: 

3582 016630 100372 BPL PR1 

3583 016632 012777 000200 162702 8IC 181 

3581 016610 020127 001776 CMP XI, 

3585 016611 001002 BNE +1 

3586 016616 012701 001576 flOV ITl 

3587 016662 005721 TST (1 


F 6 
PAGE 70 


3589 

3590 

3591 

3592 

3593 
3591 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 
360« 

3605 

3606 

3607 






, PRG2- 

RECEIVER 

SCOPE LOOP 

016571 

016571 

101000 



PRG2: 

TYPE 


016576 

020135 




PRG2M 

7, PARAM 

016600 

001737 

016720 



JSR 

0166m 

001737 

016772 


PRG2R: 

JSR 

7, LOOP 

016610 

012777 

000001 

162721 

PRG2A: 

MOV 

•B 1 TO. dCSR 

016616 

005777 

162722 


PRG2AA: 

TST 

aBAR 

016622 

001115 




BEQ 

PRG28 

016621 

105777 

162712 



TSTB 

dCSR 

016630 

100372 




BPL 

PRG2AA 

016632 

012777 

000200 

162702 


BIC 

IB IT7, dCSR 

016610 

020127 

001776 



CMP 

X1.ITUMTAB+176 

016611 

001002 




BNE 

46 

016616 

012701 

001576 



MOV 

• TUMTAB-2, XI 

016652 

005721 




TST 

C 1 ) 4 

016661 

000755 




BR 

PRG2A 

016666 

005077 

162660 


PRG28 

CLR 

dCSR 

016662 

006077 

162656 



CLR 

BBAR 

016666 

005037 

016711 



CLR 

PRG2C 

016672 

017737 

162301 

016711 


MOV 

aSUR, PRG2C 

016700 

012737 

000377 

016711 


BIC 

• 377.PRG2C 

016706 

000337 

016711 



SUAB 

PRG2C 

016712 

101100 




OELAY 


016711 

000000 



PRG2C 

OPEN 

PRG2R 

016716 

000732 




BR 


, BEGIN 

, TYPE PROGRAM 
; TITLE 

, GO 6ET USER PARAMETERS 

; GO START TRANSMITTER 

, SET GO, CLEAR THE OTHERS 

;HAVE ALL L*'*’S SELECTEO FINISHED 

; BRANCH IF FI. .SHED TRANSMITTING 

; WAIT FOR THE RECEIVER TO 

, RECEIVE A CHARACTER 

.CLEAR RECEIVER FLAG 

; IS THE POINTER AT THE ENO OF THE TT 

.BRANCH IF NOT 

.RESET POINTER 

, INCREMENT POINTER 

.GO BACK 6 TEST TRANSMITTER FLAG 

.CLEAR THE CSR 

.CLEAR THE BAR 

.CLEAR USER OCLAY 

; GET USER OELAY 


.DELAY AS SPECIFIED 
.BY USER 
; REPEAT LOOP 


3609 

3610 

3611 

3612 

3613 
3611 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 
1623 
3621 

3625 

3626 


016720 

016722 

016721 

016730 

016732 

016711 

016736 

016712 

016711 

016752 

016751 

016756 

016760 

016762 

016761 

016766 

016770 


016772 

017000 

017001 

017006 

017010 

017012 


101000 

020151 

001537 

000000 

101000 

020177 

001537 


.SUBROUTINE TO GET USER PARAMETERS (FOR PR61 l 2) 


001116 


001116 


023727 

101103 

101000 

020017 

000761 

101000 

020013 

101015 

000207 


117737 

001537 

017102 

017103 

000307 

012777 


016712 000310 


PARAM: 


LINE. 

PARANA: 


CHARS. 


PARAMB: 


TYPE 

LINPAR 

JSR 

0 

TYPE 

HOUMAN 

JSR 

0 

CMP 

BLOS 

TYPE 

Ml 

BR 

TYPE 

Ml 

CNTLU 

RTS 


5. RECO 


5.RECD 

CHARS. 1200 
PARAMB 


PARANA 


ASK USER WHICH LINE 
TO TEST 

GET LHC AND PUT IT 
HERE 

ASK USER HOW MANY 
CHARACTERS TO TRANSMIT 
GET CHARS AND PUT IT 
HERE 

LIMIT RESPONSE TO 200 
(CORt LIMITATION) 


; RE -REQUEST PARAMETER 
;TYPE INSTRUCTIONS 


;60 GET VALUE 
.EXIT 


162201 

006221 


017102 LOOP 


SUBROUTINE TO TRANSMIT DATA FROM THE SR 


HOVB BSUR. OUTBUF 

JSR 5. 1 MOVE 

OUTBUF 
OUTBUF+1 
199 

MOV ICAT, BBASREG 


001100 16253C 


FILL OUTPUT 

BUFFER 

WITH 

DATA TO BE 
TRANSMITTED 

INITIALIZE BASE REGISTER 


, , ++0 
, . ++D 
, , ♦♦0 








G 6 



, UDOHOO omifl LGC TST 

nflCYll 

300(1052) 

28-APR-78 13 

98 PAGE 71 


SEQ 0071 

czorwo 

Pit 28-APR-78 

13: 99 






3627 

017020 

012737 

017102 

001900 

nov 

•OUTBUF /CRT 

LORO CURRENT 


3628 

017026 

009537 

006229 


JSR 

5/ BHOVE 

ADDRESS TABLE 


3629 

017032 

001900 



CRT 


UITH ADDRESS 


3630 

017039 

001902 



CRT+2 


OF OUTPUT BUFFER 


3631 

017036 

000090 



32 




3632 

017090 

013737 

016792 

001990 

nov 

CHARS/ UCT 

LOAD WORD COUNT 


3633 

017096 

006937 

001990 


N£G 

UCT 

FORN TUO'S COnPLEHENT 


363H 

017062 

009537 

006229 


JSR 

5/ BHOVE 

TABLE UITH 


3636 

017066 

001990 



UCT 


NUN8ER OF 


3636 

017060 

001992 



UCT+2 


CHARACTERS TO BE 


3637 

017062 

000090 



32. 


TRANSniTTEO 


3638 

017069 

013737 

016730 

001569 

nov 

LINE/ 1 INB 1 T 

SAVE LINES TO BE TRANSNITTEO OH 


3639 

017072 

013777 

016730 

162999 

nov 

LINE.iBAR 

START TRANSniTTING ON SELECTED LINES 


3690 

017100 

000207 



RTS 

7 

EXIT 


3691 









-JOHZ 

3W3 

017102 

000000 



OUTBUf : 0 


FIRST ADORESS OF 100 


3699 


017296 



. = OUTBUf -MOO 

CHARACTER OUTPUT BUFFER 


3646 

017296 

000000 



INBlIf • 0 


FIRST ADORESS OF 100 


3696 


017912 



. SINBUF4100. 

CHARACTER INPUT BUFFER (UHCRE RECEIVED 


3697 







DATA IS STORED) 


3698 

3699 

017912 

013796 

000006 


SUSURR: nov 

BI6/~(SP> 

/SAVE VECTORS 


3660 

017916 

013796 

000009 


nov 

M9,-(SP> 



3661 

017922 

012737 

017992 

000009 

nov 

111/8*9 

-SET UP FOR TINE OUT 


3662 

017930 

022777 

177777 

161599 

cnp 

•-1.8SUR 

REFERENCE HARDWARE SWITCH REGISTER 


3663 

017936 

001902 



BEQ 

21 



3669 

017990 

000907 



BR 

31 



3666 

017992 

022626 



si: cnp 

(SP )♦. <SP)4 

; ADJUST STACK 


3666 

017999 

012737 

000176 

001202 

21: nov 

ISUREG/SUR 

.POINT TO SOFTWARE SWITCH REG 


3667 

017962 

012737 

000179 

001209 

nov 

10 1 SPREE. 0 1 SPLAY 

.POINT TO SOFT DISPLAY REG 


3668 

017960 

012637 

000009 


3i: nov 

(SPH.8R9 

.RESTORE VECTORS 


3669 

017969 

012637 

000006 


nov 

(SPH.M6 



3660 

017970 

000002 



RTI 




3661 









366Z 

3663 





; ROUTINE TO CHECK FOR G BEING TYPEO 


3669 

3666 

017972 

022737 

000176 

001202 

K8DINTT: CnP 

ISUREG. SUR 



3666 

017500 

001021 



BNE 

11 



3667 

017602 

023737 

000092 

000096 

cnp 

8t92*8V96 

; ACT11? 


3668 

017610 

001915 



BEQ 

11 

;BR IF YES 


3669 

017612 

006037 

017609 


CIR 

TNP1 

; CLEAR TEHP AREA 


3670 

017616 

117737 

162396 

017609 

novB 

8TKD8R/THP1 

.FETCH THE SUFFER 


3671 

017629 

192737 

000200 

017609 

BICB 

•200/ TNP1 

; STRIP OFF PARITY 


3672 

017632 

122737 

000007 

017609 

cnps 

•7/THP1 

.WAS IT 6 


3673 

017690 

001001 



BNE 

11 

» NOP 


3679 

017692 

109015 



CNTLU 


* 60 CHANGE 1 T 


3676 

017699 

000002 



11: RTI 


« EXI T 


3676 









3677 

3678 





; ROUTINE TO CHANGE CONTENTS OF SWREGCLOC 176) 


3679 

3680 

017696 

022737 

000176 

001202 

CNTLUU. cnp 

•SUREG/SUR 



! 3681 

017569 

001023 



BNE 

FJX 



^ 3682 

! 

017666 

109000 



TYPE 





H 6 

(ZDHADO DflttR LGC TST 11ACY11 300(1052) 28-APR-78 13 58 PAGE 72 


rZDnOO Pll 28-APR-78 13: 55 

3583 017550 0176M1 
3685 017552 00H537 006155 

3585 017555 000175 
3585 017570 017657 

3587 017572 000005 

3588 017575 105000 

3589 017576 017557 

3590 017500 005537 005516 

3591 017505 000000 

3592 017506 022737 000007 005575 

3593 017615 001503 

3595 017616 013777 017605 161356 

3595 017525 000002 



SSUREG 

JSR 

R5.0ACNV 


SUREG 

V/AIUE 

6 

TYPE 

5VALUE 

JSR 

5.RECD 

THP1. 

0 



CMP 

•7, CNT 


BEQ 

FJX 


MOV 

Tnpi.asi* 

FJX: 

RTI 




SEQ 0072 


/ CONVERT TO ASCII 


, GET THP1 AHO PUT IT 
, HERE 


.CHANGE CONTENTS OF SUREG 


SEQ 0073 


CZ0MAD0 OflllA LGC TST hACYIl 3QA( 1052) 28-APR-78 13 48 PAGE 73 

CZDMAD. Pit 28-APR-78 13:44 


3698 

017626 

053045 

041505 

020124 

WHERE 

. ASC 1 1 

3699 

017634 

042101 

037522 

100 



3700 

017641 

045 

053523 

036522 

SSWREG 

ASCII 

3701 

017646 

100 





3702 

017647 

040 

020040 

020040 

S VALUE: 

ASCII 

3703 

017654 

020040 

020040 

047040 



3704 

017662 

053505 

040075 




3705 

017666 

044445 

041516 

051117 

5CTLU 

ASCII 

3706 

017674 

042522 

052103 

044440 



3707 

017702 

060116 

052125 

020054 



3708 

017710 

051124 

020131 

043501 



3709 

017716 

044501 

020516 




3710 

017722 

036445 

100 



ASCII 

3711 

017725 

045 

047125 

052111 

WHICH 

ASCI 1 

3712 

017732 

024043 

024470 

040077 



3713 

017740 

041445 

040510 

020122 

LEVEL 

ASCII 

3714 

017746 

047114 

062107 

040110 



3715 

017754 

042445 

061122 

061440 

ERDAT 

ASCI 1 

3716 

017762 

041057 

020072 




3717 

017766 

020040 

020040 

020040 

AASB 

ASCII 

3718 

017774 

053440 

051601 

020072 



3719 

020002 

020040 

020040 

020040 

AW AS 

.ASCII 

3720 

020010 

100 





3721 

020011 

045 

051120 

021507 

no 

ASCII 

3722 

020016 

100 




ASCII 

3723 

020017 

045 

040077 


m. 

3724 

020022 

042445 

042116 

040040 

H2: 

ASCII 

3725 

(iwr»k< 

061445 

036522 

037460 

H3: 

ASCII 

3726 

■ t r * < IR' * 

043440 

027117 

100 



3727 

020043 

045 

042114 

041440 

H4: 

. ASCI 1 

3728 

lYV-'-VJ 

040510 

020122 

04711! 



3729 


061440 

030122 

033455 



3730 

I 1 "' • iM 

042073 

064514 

044440 



3731 

020072 

020116 

061123 

026470 



3732 

020100 

032461 

100 



ASCII 

3733 

020103 

045 

047514 

044507 

PRGOH: 

3734 

020110 

020103 

061524 

061624 



3735 

020116 

100 




. ASCII 

3736 

020117 

045 

046630 

052111 

PRG1H. 

3737 

020124 

042624 

020122 

047514 



3738 

020132 

060117 

100 

046630 



.ASCII 

3739 

020131 

046 

062111 

PR62H: 

3740 

020142 

061067 

041506 

046040 



3741 

020160 

047617 

040120 


LINPAR: 

ASCII 

3742 

020164 

06204ft 

060131 

046040 

3743 

020162 

047111 

061506 

052040 



3744 

020170 

020117 

051524 

020124 



3745 

020176 

100 




.ASCII 

3746 

020177 

046 

047443 

020106 

H0UT1AN. 

3747 


044103 

061101 

037523 



3748 

020212 

100 




. ASCI 1 

3749 

020213 

046 

020122 


EHO. 

3750 

020216 

020040 

050040 

036503 

ATNUTIB: 

.ASCII 

3751 


020040 

020040 

020040 

APC; 

.ASCII 

3752 

020232 

100 






’XVECT ADR?a' 


’XSWR^' 


MEU=i' 


1 X INCORRECT INPUT/ TRY AGAIN' 


'*=*• 

> XUNITI(8>‘>a‘ 


•7.CHAR LNGTHi’ 


•7.ERR S/B 


WAS * 


’XPRGli' 

X->i' 

■XEMD a 1 
, XSR=0'> go *' 


‘ XLD CHAR IN SR0-7.0LY IN SR8-lSa‘ 


•UOGIC TSTSi' 


•XXfllTTO LOOPd* 


’XXMI T/tEC LOOPd’ 


•XTYP LINES TO TST a* 


•XIOF OfiRS*»a* 


’XR ' 

* PCs * 

a* 



SEQ 0074 


J 6 

CZDMAOO Winn LGC TST NACY11 30A<1052) 28-APR-78 13 48 PAGE 74 

CZDHAO Pll 28-APR-78 13:44 

3753 020233 015 012 MSG1 BYTE 15,12 

3754 020235 124 042510 050440 ASCII 'THE QUICK BROUN FOX JUMPED OVER THE LAZY DOGS BACK 1234567890' 

3755 020242 044525 045503 041040 

3756 020250 047522 047127 043040 

3757 020256 054117 045040 046525 

3758 020264 042520 020104 053117 

3759 020272 051105 052040 042510 

3760 020300 046040 055101 020131 

3761 020306 047504 051507 041040 

3762 020314 041501 020113 031061 



SEO 0075 


K 6 

CZDMAOO DM11A LGC TST MAC Y1 1 30A( 1052) 28-APR-78 13*8 PAGE 76 

CZOHAO. Pll 28-RPR-78 13:** CROSS REFERENCE TABLE — USER SYMBOLS 


A 

= 

000000 

526# 

23*18 

28558 

30338 


AAS8 


017766 

802 

3717# 




APC 


02022H 

771 

37518 




APC ADO 

002102 

7361 

761* 

76* t 

770 


AREA 


013626 

2689 

2700 

2719* 

2720 

2730 

A THUMB 

020216 

775 

3750# 




AUAS 


020002 

806 

3719# 




A 12* 


0135*6 

27*9# 





Alb* 


013662 

2761# 





A20K 


013666 

27631 





A2HK 


013662 

2766# 





A28K 


013666 

27571 





A8* 


013636 

27**1 





BAR 


0015** 

688# 

882* 

1033* 

1131* 

12*5 




2081 * 

2082* 

2083 

2086 

2089* 




2787 

2789 

2801 

2803 

2833* 




3590* 

3639 * 




BASREG 

001660 

690« 

1009* 

1520* 

1951* 

1952 




26868 

26*8* 

3626* 



BAT 


001600 

68*1 

686 




BELL 

2 

000007 

6218 

786 




BITO 


000001 

*698 

1031 

1132 

1306 

1*17 

BIT1 


000002 

*688 

1717 

1718 

1722 


BIT10 


002000 

*698 





B 1 Til 


00*000 

*688 

890 




BIT12 


010000 

*578 

1261 

1269 

1812 

1813 

BIT13 


020000 

*568 

767 

1332 

1362 

15*7 

BIT1«* 


0*0000 

*568 

887 

1393 

15*7 

1562 




2666 

3366 




SIT15 


100000 

*37 

*5*8 

1269 

1308 

1336 

BIT2 

S 

00000* 

*678 

1031 

1132 

1736 

1737 

BIT3 


000010 

*668 





BITS 


000020 

*668 

1766 

1766 

1760 


SIT5 


0000*0 

*6*8 

177* 

1775 

1779 


BIT6 


000100 

*638 

1031 

1132 

1318 

1326 

8IT7 


000200 

*628 

1326 

1365 

138* 

1387 

BITS 


000*00 

*618 

782 




HIT? 


001000 

*608 

866 

898 



BKCSR 


0016*6 

6898 

88* t 

1381* 

1388* 

1876* 




1933* 

1936 

2106* 

2106* 

2107 

•HOVE 


00622* 

1*11 

1*6* 

16068 

1639 

3227 

BBKTST 

006*66 

13808 

2866 

2876 

2887 

2898 




2997 

3008 

3019 

3030 


mm 


01*20* 

2861 

28668 




•CKl 


01*222 

2872 

28768 




BRK10 


01*36* 

29*9 

29638 




BffKll 


01**02 

2960 

296*8 




BRK12 


01 **20 

2971 

29768 




•8K13 


01**36 

2982 





BRK1* 


01**6* 

2993 





BfKIS 


01**72 

300* 

ESfl 




«K1* 


01*610 

3015 

30198 




mtL\7 


01*626 

3026 

30308 




BR*2 


01*2*0 

2883 

2887# 




Iff *3 


01*266 

289* 

28988 




8RK* 


01*27* 

2906 

29091 





27*40# 


1*35 

25*3* 

32** 

1523* 

25*7 

32*8* 

2008 

2551* 

3*86* 

2036* 

2589* 

3521* 

2038 

2592* 

3532 

20*2* 

2653* 

35*5 

20*3* 

2692* 

3559 

20** 

2723* 

3579 

1960* 

1961 

1982 

1986* 

1987 

1993* 

199** 

2009* 

15** 

1698 

1699 

1703 

2832 

323* 

3328 

3578 

1817 

1552 

1881 

2130 

1568 

1889 

2558 

1831 

1915 

1832 

1956 

1836 

196* 

2131 

1991 

3251 

2553 

2593 

1366 

17*1 

15*7 

2828 

1556 

2557 





1793 

1559 

179* 

2777 

1798 

2836 

3583 





1877 

2110 

332* 

2909 

1886* 

2113* 

3622 

2920 

1886 

3329* 

3628 

2931 

1907 

3332* 

363* 

29*2 

1910* 

3*87* 

2953 

1911 

3*90* 

296* 

1917* 

3522* 

2975 

1918* 

35*9 

2986 


L 6 


j CZDWR00 

DM1 1A LGC TST 

nACYll 

30A( 1052) 

28-RPR- 

78 13: 

98 PAGE 

R» © 

77 



CZDdAD. P11 28-RPR-78 

13: 99 


CROSS REFERENCE 

TABLE — 

USER SYMBOLS 


BRK5 

019312 

2916 

2920* 







BRK6 

019330 

2927 

2931* 







BRK.7 

019396 

2938 

2992* 







CARRS* 

001572 

699« 

1119* 

1339 

1369 

1603 

2701 

2731 

3278 

CRT 

001900 

6801 

681 

1009 

1030* 

1128* 

1256 

1520 

1521* 



2663 

2689* 

2720* 

3983* 

3515* 

3626 

3627* 

3629 

CC = 

177776 

9321 








CHALT s 

109003 

509* 








CHPRS 

016792 

36081 

3609 

3632 






CLK1NT 

001552 

6911 

1061* 

1129* 

1317* 





CLKLVL 

001559 

6921 

1130* 







CHT 

009579 

1175* 

1192* 

12111 

3692 





CHTLU = 

109015 

519« 

860 

3616 

3679 





CNTLUU 

017596 

729 

36808 







CNVORT 

002332 

753 

766 

8008 





1531* 

COUNT 

002076 

739* 

1039* 

1035* 

1139* 

1191* 

1909* 

1921 

CSR 

001592 

6871 

883* 

1031* 

1081 

1088 

1132* 

1137* 

1199* 



1306 

1308* 

1310 

1318* 

1326* 

1327 

1351 

1353 



1387* 

1917* 

1939 

1992 

1599* 

1597 

1599 

1552 



1699 

1703* 

1709 

1717* 

1718 

1722* 

1723 

1736* 



1760* 

1761 

1779* 

1775 

1779* 

1780 

1793* 

1799 



1818 

1831* 

1832 

1836* 

1837 

1851* 

1859 

1858* 



2062 

2066* 

2069 

2093 

2117 

2130* 

2131* 

2199* 



2558* 

2667* 

2593 

2617 

2619* 

2620 

2652* 

2659 



2697* 

2721* 

2729 

2726 

2728* 

2770* 

2775 

2777* 



2836* 

2897 

2899 

3239* 

3299* 

3251 

3259* 

3258* 



3988 

3503 

3520* 

3529 

3591 

3561* 

3578* 

3581 

CURTST 

002002 

7091 

867 

873 

917* 





DATCHK= 

109002 

508* 

1605 





3098 

3109 

DRTTST 

006312 

1530* 

3093 

3059 

3065 

3076 

3087 

3175 

3186 

3197 

3208 





DATO 

019599 

3039 

30938 







DAT 1 

019562 

3050 

30598 







DAT1AA 

006316 

15318 








DATlO 

019729 

3127 

31318 







OATH 

019792 

3138 

31928 







OAT 12 

019760 

3199 

31538 







0AT1J 

019776 

3160 

31691 







0AT19 

015019 

3171 

31758 







DAT15 

015032 

3182 

31868 







OAT 16 

015060 

3193 

31978 







0AT17 

015066 

3209 

32088 







0AT2 

019600 

3061 

30658 







0AT3 

019616 

3072 

3076* 







DA T9 

019639 

3083 

30878 







0AT5 

019662 

3099 

30988 







OAT 6 

019670 

3105 

31098 







0AT7 

019706 

3116 

31208 




2590 

2598 

2630 

DELAY * 

109900 

5208 

1922 

1931 

2595 

2573 


3566 

3595 







QISPlA 

001209 

6788 

3657* 







oism 

000179 

665* 

3657 







JX. Y 

006000 

592 

19988 



3999 

3956 

3968 


DLYXNT 

006602 

19098 

3908 

3920 

3932 


DRPRR 

003969 

831 

10188 

1056 






0WPRR8 

003796 

10668 

1076 








SEQ 0076 


2539 2698 2699* 2669 


2009 

3620 


1535* 

1298 

1355* 

1556* 

1737 

1798* 

1859* 

2157* 

2656* 

2781 

3328* 

3583* 


3120 


2795 


1261* 

1380* 

1557 

1791* 

1799 

1860 

2158* 

2657 

2797 

3330 

3589* 


3131 


3292 


1269* 

1382 

1559* 

1792 

1812* 

2057* 

2592* 

2690* 

2828* 

3335 


3192 


3333 


1270 

1389* 

1682 

1755* 

1813 

2058* 

2553 

2693 

2832* 

3337 


3163 


3529 


1305* 

1385 

1698* 

1756 

1817* 

2059 

2557* 

2695 

2839 

3985* 


3169 


3537 




eo<TK> 







N 6 

CZDMAOO DH11A LGC TST MACY11 30AI1052) 28-APR-78 1318 PAGE 79 SEO 0078 

CZDMAO. PU 28-APR-78 13. 11 CROSS REFERENCE TABLE — USER SYMBOLS 


LB IT16= 040000 

139* 

3020 




LB IT17* 100000 

138« 

3031 




LBIT2 * OOOOOH 

1511 

2888 




II .UiH 

1501 

2899 




LBIT1 * 000020 

1191 

2910 




LBIT5 * 0QS040 

1181 

2921 




LBIT6 > 000100 

1171 

2932 




LBIT7 * 000200 

1161 

2913 




LENGTH 00*1112 

1096 

1100* 

1101 

1103* 

1101 

LENOKA 00*1130 

1102 

1101* 




IE MOM 00*11*10 

11061 

1110 




LENOKC 004116 

1105 

1109* 




LEMOKO 001206 

1111 

1120* 




LEVEL 017710 

109! 

3713* 




LIMIT 001561 

696* 

1115* 

1127* 

1523 

1651* 


3638* 





LINE 016730 

1231* 

1251 

1302* 

1335 

1365 


2611* 

2626* 

2769* 

2772 

2807* 

LIHEO * 000000 

181* 

2173 

2351 

3011 


LINE! * 000002 

182* 

2181 

2362 

3055 


L IHE10* 000020 

189* 

2261 

2139 

3132 


L INCH* 000022 

190* 

2272 

2150 

3113 


L INE12* 000021 

191* 

2283 

2161 

3151 


LIMIJ* 000026 

192* 

2291 

2172 

3165 


LIM14* 000030 

193* 

2305 

2983 

3176 


LlttlS* 000032 

191* 

2316 

2991 

3187 


LSM16* 000031 

195* 

2327 

2505 

3198 


LIM17* 000036 

196* 

2338 

2516 

3209 


LINE2 * 000001 

183* 

2195 

2373 

3066 


LIME3 * 000006 

18H* 

2206 

2381 

3077 


LilCI * 000010 

185* 

2217 

2395 

3088 


LIIC5 * 000012 

186* 

2228 

2106 

3099 


LIIC6 * 000011 

187* 

2239 

2117 

3110 


Ll«7 * 000016 

188* 

2250 

2128 

3121 


LI MAP 020151 

3602 

3712* 




LOOP 016772 

3558 

3577 

3621* 



LTSTO 011151 

2168 

2172* 




LTST1 011472 

2179 

2183* 




LTST10 011631 

2256 

2260* 




LTST11 011652 

2267 

2271* 




LTST12 011670 

2278 

2282* 




LTST13 011706 

2289 

2293* 




LTST14 011721 

2300 

2301* 




LTST16 011712 

2311 

2315* 




LTST16 011760 

2322 

2326* 




LTST17 011776 

2333 

2337* 




LTST2 011510 

2190 

2191* 




LTST3 011526 

2201 

2205* 




LT$T1 011511 

2212 

2216* 




LTST5 011562 

2223 

2227* 




LTST6 011600 

2231 

2238* 




LTST7 011616 

2215 

2219* 




MAC HER 000001 

530* 





MANUAL* 100000 

137* 





MS61 020233 

1112 

3753* 




MO 020011 

837 

3721* 





1109 

1111* 

1112* 

1113 





1657* 

2622 

2623 

2627* 

2787 

2808* 

3233* 

3239* 

1116* 

3235* 

1126* 

3601* 

1518 

3638 

1530* 

3639 

1576 

1578 

1588 

1655 


SEQ 0079 


8 7 
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CZDMAD Pll 28-RPR-78 

13: HH 


CROSS REFERENCE 

TABLE 

m 

020017 

7H7 

1065 

1075 

1107 

1207 

02 

020022 

90H 

372H« 




03 

020030 

867 

37251 




OH 

0200H3 

3616 

3727# 




NOP * 

0O02H0 

H36I 





NXTST 

002006 

7061 

861* 

87H 

900 

912 

OACNV 

00615H 

769 

773 

800 

80H 

1H86I 

OAOWA 

006166 

1H91I 

1500 




OPEN s 

000000 

H36f 

680 

682 

68H 

686 



703 

70H 

705 

706 

707 



9H2 

9H3 

957 

958 

100H 



16H6 

16H6 

16H7 

16H8 

16H9 



3526 

3538 

3567 

35% 


OUTBUF 

017102 

1030 

1128 

1255 

1298* 

1H13 



3621* 

3623 

362H 

3627 

36H3# 

OVRLAY 

00H372 

10H2 

10HH 

1156# 



PAR AH 

016720 

3557 

3576 

3601# 



PARANA 

016732 

3605# 

3613 




PAR AH# 

016762 

36!0 

361H# 




PRtO 

007026 

1633* 

S6HH# 




PRR1 

007030 

163H* 

16H5# 




PAR 2 

0C7032 

1636* 

16H6# 




PAR3 

00703H 

1636* 

16H7# 




PARH 

007036 

1637* 

16H8# 




PAR5 

0070HO 

1638* 

16H9# 




PAR6 

0070H2 

1639* 

1650# 




PASS 

002116 

7H2I 

89H 

902* 



PC ADO 

002100 

736# 

761 

76H 

92H* 


PFAIL 

009576 

m2 

8H6 

121HI 



POPSP * 

006726 

H70« 

1HHH 

1629 



P0PSP2* 022626 

H71# 

1 1H9 

2736 



ptain 

00201 H 

709# 

8H0 




mmm 

002HSH 

835 

839# 

8H0* 

8H1S 

8HH 

PRGTAi 

002016 

710# 

8H5 




PtOO 

007076 

710 

1669# 




ptflon 

020103 

1665 

3733# 




PROOR 

007120 

713 

1669# 




PRfll 


711 

355H# 




proii 

I'jM > • 

3559# 

3560 




PR01C 


3561# 





pteio 

016670 

3562* 

3663* 

356H* 

3565* 

35678 

PROW 


3556 

3736# 




PRfilR 

01662H 

71H 

35581 

3568 



PR (82 

016679 

712 

3573# 




PR02A 

016610 

3578# 

3688 




PRS2AA 

016616 

3579# 

3582 




Pff82f 

016666 

3580 

3589# 




PRS2C 

01671H 

3591* 

3592* 

3593* 

359H* 

3596# 

ptom 


3575 

3739# 




mm 

01660H 

715 

3577# 

3597 



PRTYO • 

»ji i i t 

179# 





PfTYl • 


178# 





PRTY2 ■ 

1 • » ii 

1 77 % 





PRTY3 • 

• ( i „ 

H76I 





PRTYH * 

lit 

H75# 

2150 




PRTY5 * 


H7H# 

692 

69H 




USER SYMBOLS 
3612 37231 


9m* 

368M 


691 

693 

695 

6% 

697 

698 

699 

701 

708 

709 

73H 

735 

736 

737 

7H2 

779 

1152 

1153 

1H59 

1H60 

1H69 

1H70 

1H71 

16HH 

1650 

26H6 

257H 

2591 

2599 

27% 

32M3 

333H 

1521 

1532 

159H 

1600 

3231* 

3277 

3H83 

3515 


36HH 


SEQ 0080 


C 7 
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CZONAD. P11 28-APR-78 

13: HH 


CROSS REFERENCE 

TABLE 

PRTY6 = 

000300 

H73I 





PRTY7 = 

000340 

H72I 

SHI 

5H3 

8H3 

8H7 



21H7 

2561 

2568 

26H7 


PR¥CNT 

00 21 OH 

737R 

19078 

1918 

19828 

199H 

PSU = 

177776 

H33I 

10108 

10328 

11338 

11388 



21H78 

21508 

21668 

25598 

25618 

PTO 

006100 

14708 

1474 

1H8Q8 



PT1 

006102 

1H71I 

1H7H8 

1H758 

1H788 

1H798 

PUR UP 

00H606 

121H 

12181 




RCVOAT 

0C1566 

6971 

751 

806 

12H58 

12528 



13628 

1367 

13998 

1H008 

1H358 



18778 

1878 

18868 

19118 

1912 



20HH8 

20628 

20698 

20868 

20938 



2702 

27298 

2732 

27718 

27788 



33378 

33908 

3H968 

3H998 

35298 

RCWTST 

005034 

12981 

2350 

2361 

2372 

2383 



2H82 

2H93 

250*4 

2515 


RC¥0 

01 201 H 

23H6 

23508 




RC¥1 

012032 

2357 

23618 




RCV10 

01217H 

2H3H 

2H38I 




RC¥11 

012212 

2HHS 

2HH98 




RC¥12 

012230 

2H56 

2H608 




RC¥13 

0122H6 

2H67 

2H718 




RC¥14 

01226H 

2H78 

2H828 




RC¥15 

012302 

2H89 

2H938 




RC¥16 

012320 

2500 

250H8 




RC¥17 

012336 

2511 

25158 




RCV2 

012060 

2368 

23728 




RC¥3 

012066 

2379 

23838 




RC¥4 

01210H 

2390 

239H8 




RC¥S 

012122 

2H01 

2H058 




RC¥6 

0121H0 

2H12 

2H168 




RC¥7 

0121S6 

2H23 

2H278 




RCCO 

OOHH16 

838 

10H7 

1070 

1099 

11738 

RIM) 


1H638 

1H65 

1H66 

1H698 

1H768 

RMGEM 

[i it J'v- 

9688 

1908 

1983 



RORPAR 

00676H 

1571 

1597 

1619 

16338 

16H1 

RP1 

003316 

968 

9728 

979 

981f 


RP2 

[t i V k v a i 

971 

975 

9788 

9828 


RSTNRT 


7138 

861 




RSTAT1 

002H26 

670 

8328 




RSTAT2 

002514 

672 

SH68 

1221 



RSTPC 


9H68 

965 

9578 



RSTPSU 

|t i V 

9H78 

96H 

9688 



as ms* 

10H010 

S1H« 

1601 

1512 



RSTR6 

003172 

72H 

9H68 




RTLA8T* 

177777 

5228 

3608 




RTNNO 

00200H 

7051 

77M 

871 

9138 

16678 

RTO 

007136 

1666 

1669 

16738 



RTOA 

0071H6 

1676 

16818 




RT1 

007200 

167H 

16908 




RT1R 

007210 

1693 

16988 




RT10 

0076H6 

1805 

18238 




RT10A 

007656 

1826 

18318 




RT100 

01H2H6 

2881 

28918 




RT101 

01H26H 

2892 

29028 





- USER SYH80LS 


1010 

1130 

1138 

1264 

1268 

1301 

1321 

1324 

12628 

26688 

126H8 

12688 

13018 

13198 

13218 

13248 

21328 

1H80 

1H81 







12568 

1257 

13318 

13328 

1337 

13448 

13668 

13618 

1HH28 

15798 

15988 

1 6048 

16108 

16178 

18648 

18608 

19368 

19628 

1963 

19618 

19878 

1988 

20218 

20388 

21108 

21178 

25H78 

26638 

26228 

26638 

26988 

26998 

2779 

28038 

28308 

28378 

32448 

32798 

3280 

33048 

35328 

35H18 

35H58 

35498 





239H 

2H06 

2H16 

2427 

2438 

2449 

2460 

2471 


3603 3607 3690 


16708 


i 


SEG 0081 


CZDNAOO DmiA LGC .ST 
C20«A0. PU 28-APR-78 

F1RCY11 
13: 44 

30A( 1052 

ST 102 

014302 

2903 

29131 

RT103 

014320 

2914 

29241 

RT104 

014336 

2925 

29361 

ST SOS 

0143S4 

2936 

29461 

RT106 

014372 

2947 

29571 

RT107 

014410 

2968 

29681 

RT11 

007720 

1824 

18421 

RT11A 

007730 

1845 

18611 

RT110 

014426 

2969 

29791 

RT 111 

014444 

2980 

2990« 

RTU2 

014462 

2991 

30011 

RT113 

O14SO0 

3002 

30121 

RT114 

014616 

3013 

30231 

RT115 

014634 

3024 

30361 

RT116 

014662 

3037 

30471 

RT117 

014670 

3048 

30681 

RT12 

010010 

1843 

18661 

RT12P 

010020 

1869 

18761 

RT120 

014606 

3069 

30691 

RT121 

014624 

3070 

30801 

RT122 

014642 

3081 

30911 

RT123 

014660 

3092 

31021 

RT124 

014676 

3103 

31131 

RT12S 

014714 

3114 

31241 

RT126 

014732 

3126 

31361 

RT127 

014760 

3136 

31461 

RT13 

010144 

1867 

18981 

RT13A 

010164 

1901 

19061 

RT130 

014766 

3147 

31571 

RT131 

016004 

3168 

31681 

RT132 

015022 

3169 

31791 

RT133 

016040 

3180 

31901 

RT134 

016066 

3191 

3201 R 

RT13S 

015074 

3202 

32121 

RT1SR 

015104 

3215 

32261 

RT1J6 

016474 

3213 

33148 

RT1J6R 

016604 

3317 

33221 

RT137 

016010 

3315 

33998 

RT137R 

016020 

3402 

34088 

RT14 

010256 

1899 

19248 

RT14P 

010266 

1927 

19338 

RT140 

016026 

3400 

34118 

RT140A 

016036 

3414 

34208 

iTlH 

016044 

3412 

34238 

RT141R 

016064 

3426 

34328 

RT142 

016062 

3424 

34368 

RT142A 

016072 

3438 

34448 

RT14J 

016100 

3436 

34478 

RT14JR 

016110 

3450 

34668 

RT144 

016116 

3448 

34598 

RT144R 

016126 

3462 

34688 

RT146 

016134 

3460 

34718 

RT146A 

016144 

3474 

34818 

RT146 

016302 

3472 

35078 

RT146R 

016312 

3510 

36158 

RT1S 

010316 

1925 

19418 


D 7 

28-APR-78 13:48 PAGE 82 

CROSS REFERENCE TABLE -- USER SYflBOLS 


1867 


SEQ 0082 


E 7 


czdmroo 

Omifl LGC TST 

npcYii 

30fl( 1052) 28-APR-78 13.18 PAGE 

83 

CZDMAD 

PI 1 28-APR-78 

13: 11 

CROSS REFERENCE TABLE — 

USER SYMBOLS 

RT15R 

010326 

1911 

19501 


RT16 

010152 

1912 

19731 


RT16R 

010162 

1976 

19811 


RT17 

010S70 

1971 

20001 


RT17R 

01 0600 

2003 

20081 


RT2 

0Q72S2 

1691 

17091 


RT2A 

0072S2 

1712 

17171 


RT20 

010662 

2001 

20271 


RT20R 

010672 

2030 

20351 


RT21 

010750 

2028 

20191 


RT21R 

010760 

2052 

20571 


RT22 

0110S6 

2050 

20731 


RT22R 

011066 

2076 

20811 


RT23 

01116H 

2071 

20971 


RT23A 

01117* 

2100 

21051 


RT21 

011272 

2098 

21211 


RT21R 

011302 

2121 

21291 


RT25 

011336 

2122 

21391 


RT26A 

011 >6 

2112 

21171 


RT26 

01 IHRil 

2110 

21651 


RT27 

011162 

2166 

21761 


RT3 

00732H 

1710 

17281 


RT3R 

007331 

1731 

17361 


RT30 

011S00 

2177 

21871 


RT31 

01 1516 

2188 

21981 


RT32 

011531 

2199 

22091 


RT33 

011SS2 

2210 

22201 


RT31 

01 1570 

2221 

22311 


RT3S 

011606 

2232 

22121 


RT» 

011621 

2213 

22531 


RT37 

011612 

2251 

22611 


RTH 

007376 

1729 

17171 


RT1R 

007106 

1750 

17551 


RT10 

011660 

226S 

22751 


RT11 

011676 

2276 

22861 


RT12 

011711 

2287 

22971 


RT13 

011732 

2298 

23081 


RT11 

011750 

2309 

23191 


RT15 

011766 

2320 

23301 


RT16 

012001 

2331 

23131 


RT17 

012022 

2311 

23511 


RT5 

007150 

1718 

17661 


RTSR 

007160 

1769 

17711 


RT60 

012010 

23SS 

23651 


RT51 

012056 

2366 

23761 


RTS2 

012071 

2377 

23871 


RT53 

012112 

2388 

23981 


RTSR 

012130 

2399 

21091 


RTSS 

012116 

2110 

21201 


RTSS 

012161 

2121 

21311 


RTS7 

012202 

2*32 

21121 


RTS 

007522 

1767 

17851 


RTSR 

007532 

1788 

17931 


RTSO 

012220 

2113 

21531 


RT6I 

012236 

2151 

21611 


RT62 

0122S1 

2165 

21751 
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CROSS REFERENCE 

TABLE — 

USER SYflBOLS 







RT63 

012272 

2*7b 

2*869 












RTb* 

012310 

2*87 

2*979 












RTb5 

01232b 

822* 

2*98 

25089 











RTbb 

0123*6 

2609 

26209 












RT66A 

Q123b2 

2623 

26329 












RTb? 

012b0b 

2621 

25779 












RTfeTA 

0l2blb 

2680 

26869 












RT7 

00757* 

178b 

180*9 












RT7A 

00760* 

1807 

18129 












RT70 

01271b 

822 

2678 

26039 











RT70R 

01272b 

2b0b 

2b1*9 












RT71 

013032 

2b0* 

263*9 












RT71A 

0130*2 

2b37 

26*39 












RT72 

01322b 

2b36 

26779 












RT72A 

01323b 

2b80 

26879 












RT73 

01 3572 

2b78 

27609 












RT73A 

013b02 

27b3 

27699 












RT7* 

01*00b 

27b1 

28129 












RT7*A 

01*01b 

2816 

28229 












RT7S 

01*17* 

2813 

28589 












RT7b 

01*212 

2869 

28699 












RT77 

01*230 

2870 

28809 












SAVREG* 

10*007 

6131 

l*8b 

1606 











SAVtG 

003132 

723 

9329 












score * 

10* 00b 

6121 

127* 

1371 

1*03 

1**5 

1630 

168* 

1707 

1726 

17*5 

176* 

1783 

1802 



1821 

18*0 

186* 

1896 

1922 

1939 

1971 

1998 

2019 

20*7 

2071 

2095 

2119 



2137 

2163 

2576 

2601 

2632 

2676 

2738 

2810 

285* 

3312 

3397 

3505 

3552 

SCOTCH 

00273b 

889* 

897 












scorca 

0027*2 

888 

8909 












scores 

00277b 

8b8 

891 

896 

8989 










scortv 

002012 

7081 

886 

916* 











srtoT 

001200 

>76* 

818 

826 

832 

8*8 

1011* 

1012 

1219 






SRC SETs 

10*006 

6111 

1863 

1936 

2037 

3528 









SRSCT 

002S*b 

862t 

1668 












SRSETT 

003232 

721 

9619 

963* 











START 

0023*0 

bb9 

8189 












SUSHI * 

10*013 

S17« 

819 












SUSHBCR 

017*12 

727 

36*99 












svtrc 

0031bb 

932* 

9*0 

9*29 











svrtsu 

003170 

933* 

939 

9*39 











SUR 

001202 

677« 

767 

782 

791 

862 

865 

869 

887 

890 

898 

1881 

1889 

1915 



196b 

196* 

1991 

2666 

3663 

3592 

3621 

3662 

3656* 

3665 

3680 

369** 


SUREfi 

00017b 

bbbf 

862 

3666 

3665 

3680 

3686 








TIICA 

00*272 

1IM 

11*3 












Tinei 

0 0*126 

113b 

11*19 












TlfSEC 


1129 

11**9 












TIMER 

00*21 b 

112bf 

11*0 

2532 











TINEI 


112b* 

1136* 

11*5 

11529 

1*20 

1*30 

2572 

2597 

2629 

32*1 

3322 

3517 

3^18 

Tirci* 

1 • {■■■«& 

11*6* 

11*6* 

11*8* 

11539 

25** 

2588 

279* 







TXCSSR 

.'.TV-'TW-- ■" 

7309 

1176 












TKORR 

> r 1 

731 • 

1178 

3670 











tmpi 

01710* 

3bb9* 

3670* 

3671* 

3672 

36919 

369* 








TTCSR 

002072 

7321 

78* 

787 

996 

1196 

1198 

1201 







TP OR* 


7331 

786* 

996* 

1180* 

1197* 

1200* 








TTOirr 

001662 

6969 

157** 

1675* 

1576 

1579 









TUMTAi 

001600 

7011 

702 

1299* 

1300* 

1331 

13*3* 

13** 

1356 

1361 

1389 

1393 

1397 

1*00 
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1537 

1538* 

1560 

1561 

1583 

1585 

2699 

2729 

2822 

2827 

2851 

3226* 

3228 



3229 

3260 

3273 

3279 

3288 

3299 

3323* 

3325 

3326 

3363 

3353 

3363 

3376 



3386 

3681* 

3682* 

3693 

3695 

3699 

3586 

3586 






TYP 

003322 

716 

9868 












TYPA 

003332 

987« 

996 

1003 











TYPC 

003350 

989 

9918 












TYPO 

003365 

993 

9958 

1000 

1002 










TYPDRT 

003H32 

987* 

988 

991 

995 

999* 

1001* 

10068 







TYPE = 

1 OH 000 

5061 

766 

777 

780 

836 

856 

903 

1065 

1056 

1068 

1076 

1097 

1106 



1206 

1208 

1666 

3555 

3576 

3601 

3605 

3611 

3616 

3682 

3688 



TYPF 

003H0H 

992 

9998 












TYPE 

003H16 

10011 













UNIT 

003766 

1067 

10718 

1072 

1077* 

1078* 

1079* 

1083 







UNTOKft 

lv« 

1073 

10778 












UNTOKB 

l'.'» 'Hpfl . 

10821 

1085 












UNTOKC 


1090* 

1093 












me 

001560 

686« 

700 












VECOK 


1063 

1050 

10528 











VECOKfl 

003676 

10568 

1058 

1060 











VCCOKB 

003706 

1063 

10578 












VECTOR 

1 1 

1060* 

10688 

1069 

1051* 

1052 

1057 

1059 

1061 

1062* 

1063 




ACT 

001660 

6828 

683 

1029* 

1127* 

1252 

1522* 

1589 

2651* 

2691* 

2722* 

2831* 

3686* 

3516* 



3632* 

3633* 

3635 

3636 










WHERE 

Q17626 

1066 

36988 












WHICH 

017725 

1069 

37118 












X = 

0001 66 

5258 

1672 

16778 

1689 

16968 

1708 

17138 

1727 

17328 

1766 

17518 

1765 

17708 



1786 

17898 

1803 

18088 

1822 

18278 

1861 

18668 

1865 

18708 

1897 

19028 

1923 



16288 

1960 

19658 

1972 

19778 

1999 

20068 

2026 

20318 

2068 

20538 

2072 

20771 



2096 

21018 

2120 

21258 

2138 

21638 

2166 

21698 

2175 

21808 

2186 

21918 

2197 



22028 

2208 

22138 

2219 

22268 

2230 

22358 

2261 

22668 

2252 

22578 

2263 

22688 



2276 

22798 

2285 

22908 

22% 

23018 

2307 

23128 

2318 

23238 

2329 

23368 

2362 



23678 

2353 

23588 

2366 

23698 

237S 

23808 

2386 

23918 

2397 

26028 

2608 

26134 



2619 

26268 

2630 

26358 

2661 

26668 

2652 

26578 

2663 

26688 

2676 

26798 

2685 



26908 

2696 

25018 

2507 

25128 

2518 

2519 

25268 

2576 

25818 

2602 

26078 

2633 



26388 

2676 

26818 

2759 

27668 

2811 

28168 

2857 

28628 

2868 

28738 

2879 

28868 



2890 

28958 

2901 

29068 

2912 

29178 

2923 

29288 

2936 

29398 

2965 

29508 

2956 



29618 

2967 

29728 

2978 

29838 

2989 

29968 

3000 

30058 

3011 

30168 

3022 

30278 



3035 

30608 

3066 

30518 

3057 

30628 

3068 

30738 

3079 

30868 

3090 

30958 

3101 



31068 

3112 

31178 

3123 

31288 

3136 

31398 

3165 

31508 

3156 

31618 

3167 

31728 



3178 

31838 

3189 

31968 

3200 

32058 

3211 

32168 

3313 

33188 

3398 

36038 

3610 



36158 

3622 

36278 

3636 

36398 

3666 

36518 

3658 

36638 

3670 

36758 

3506 

35118 

xniTO 

006266 

1237 

1303 

1369 

1618 

15178 

1S65 

2615 

2773 

3236 





XrtTDAT 

001570 

6981 

751 

801 

1236* 

1255* 

1257 

1333* 

1336* 

1335 * 

1336* 

1337 

1366* 

1358* 



1363* 

1366* 

1365* 

1366* 

1367 

1601* 

1610* 

1661* 

1578* 

1599* 

1602* 

1603* 

1852* 



1875* 

1876 

1878 

1883 

1886* 

1891* 

1892 

1896* 

1909* 

1910 

1912 

1936* 

1950* 



1951 

1953 

1958 

1959* 

1966* 

1H7 

1H9* 

1985* 

1986 

1988 

2020* 

2026* 

2035* 



2061* 

2068* 

2085* 

2092* 

2109* 

2116* 

2569* 

2562* 

2623* 

2662* 

2700* 

2701* 

2702 



2730* 

2731* 

2732 

2772* 

2789* 

2806* 

2829* 

2838* 

2865 

3266* 

3277* 

3278* 

3280 



3296* 

3300 

3310* 

3338* 

3389* 

36 %* 

3501* 

3519* 






XHT1NT 

001556 

6938 

1063* 

1260* 

2129* 

2168* 

2156* 

2561* 







XMTLVL 

001560 

6968 

2155 












XMTTST 

006622 

12368 

2172 

2183 

2196 

2205 

2216 

2227 

2238 

2269 

2260 

2271 

2282 

2293 



2306 

2315 

2326 

2337 










Y s 

00 0020 

5268 

2166 

21768 

2175 

21858 

2186 

21 %8 

2197 

22078 

2208 

22188 

2219 

22298 



2230 

22608 

2261 

22518 

2252 

22628 

2263 

22738 

2276 

22868 

228S 

22958 

22% 



23068 

2307 

23178 

2318 

23288 

2329 

23398 

23608 

2362 

23528 

2353 

23638 

2366 
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237*»# 

2375 

2385* 

2386 

23%« 



2991 

2H51I 

2H52 

2H62# 

2H63 



2517# 

2856# 

2857 

2867# 

2868 



2922# 

2923 

2933# 

293H 

29HH# 



2989 

2999# 

3000 

3010# 

3011 



3057 

3067# 

3068 

3078# 

3079 



3133# 

3139 

31HHI 

3116 

3155# 



3200 

3210# 




5CTLU 

017666 

1209 

3705# 




5ENDA0 

003036 

659 

908# 




5SUREG 

017691 

3683 

3700# 




5VALIIE 

0176H7 

3686 

3689 

3702# 



s 

020332 

5271 

528 

530 

532 

53H 



556 

558 

560 

562 

56H 



582 

589 

586 

588 

590 



608 

610 

612 

61H 

616 



639 

636 

638 

6HQ 

6H2 



669# 

668# 

675# 

679# 

6811 



1 1H2 

1 2H2 

1307 

1352 

135H 



2655 

36961 

2658 

269H 

26% 

2725 

BAR 

002110 

739# 

2090t 




. BASRE 

002119 

7H1# 





. BKCSR 

002112 

7H0# 

211HX 




. CSR 

002106 

738# 

1089 

2066X 



ABS. 

020332 

000 






USER SYTWOLS 


2397 

2H07# 

2H08 

2918# 

2919 

2929# 

2930 

2M 73# 

297H 

2989# 

2985 

2995# 

29% 

2506# 

2878# 

2879 

2889# 

2890 

2900# 

2901 

2911# 

2995 

2955# 

2956 

2966# 

2967 

2977# 

2978 

3021# 

3022 

3032# 

30391 

3035 

3095# 

3096 

3089# 

3090 

3100# 

3101 

3111# 

3112 

3122# 

3156 

3166# 

3167 

3177# 

3178 

3188# 

3189 


536 

538 

599 

596 

598 

550 

552 

566 

568 

570 

572 

579 

576 

578 

592 

599 

5% 

598 

600 

602 

609 

618 

620 

622 

629 

626 

628 

630 

699 

696 

698 

650 

652 

659 

658# 

683# 

6851 

700# 

702# 

785 

788 

829 

1383 

1386 

1956 

1977 

1558 

1561 

1590 

2727 

2898 

2850 

3331 

3989 

3509 

3585 
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SCO 0085 


2990# 

2507 

2912 

2988* 

30561 

3123 

3199# 


55M 

580 

606 

632 

660# 

997 

2618 

3699# 


